Ciao scusate il cpslock nel titolo ..

Ho un ciclo che mi popola una listview ma vedo solo le prime due colonne ..

codice:
    Dim itm As ListItem
    Dim STRkey As String
    Do While Not nodeRS.EOF
       STRkey = CStr(nodeRS!ID)
       STRkey = "K" & STRkey
       Set itm = lstREGISTRAZIONE.ListItems.Add(Key:=STRkey, Text:=nodeRS!DATA_REG)
       Set SItm = itm.ListSubItems.Add(Key:=STRkey, Text:=nodeRS!Descrizione)
       Set SItm = itm.ListSubItems.Add(Key:=STRkey, Text:=nodeRS!Importo)
       Set SItm = itm.ListSubItems.Add(Key:=STRkey, Text:=nodeRS!DARE)
       Set SItm = itm.ListSubItems.Add(Key:=STRkey, Text:=nodeRS!DECODARE)
       Set SItm = itm.ListSubItems.Add(Key:=STRkey, Text:=nodeRS!AVERE)
       Set SItm = itm.ListSubItems.Add(Key:=STRkey, Text:=nodeRS!DECOAVERE)
       nodeRS.MoveNext
    Loop
Cosa sbaglio?
Forse devo inserire gli indici per listSubItems?