pana con este codigo creas los encabvezados.. incluso puedes crear una funcion que se llame asi y le colo cas el siguiente codigo y veras que le da el formato
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
    With ListView1
        .View = lvwReport
        .GridLines = True
        .LabelEdit = lvwManual
        .ColumnHeaders.Add , , "Cod. Act."
        .ColumnHeaders.Add , , "Descripción", "7000"
        .ColumnHeaders.Add , , "Cod. Grupo"
        .ColumnHeaders.Add , , "Descripción del Grupo", "6000"
    End With
en el form load pon esto
ListView1.FullRowSelect = True
ListView1.HideSelection = True
ListView1.HotTracking = True
ListView1.StartLabelEdit
ListView1.TextBackground = lvwOpaque
luego para agregar haces esto 
        Set tli = ListView1.ListItems.Add(, , "rs1!NUEVO")
        tli.SubItems(1) = "rs2!DescripciónActividad"
        tli.SubItems(2) = "rs3!Codigo_Grupo"
        tli.SubItems(3) = "rs3!grupo"
ah y en un modulo declaras la variable tli asi
Public tli As ListItem
eso es lo basico espero que te sirva