risolto

codice:
    Dim itm As ListItem
    Dim sitm As ListSubItem
    Dim STRkey As String
    Do While Not nodeRS.EOF
       STRkey = CStr(nodeRS!ID)
       STRkey = "K" & STRkey
        Set itm = lstREGISTRAZIONE.ListItems.Add
        itm.Text = nodeRS!DATA_REG
        Set sitm = itm.ListSubItems.Add(1)
        sitm.Text = nodeRS!Descrizione
        Set sitm = itm.ListSubItems.Add(2)
        sitm.Text = nodeRS!Importo
        Set sitm = itm.ListSubItems.Add(3)
        sitm.Text = nodeRS!DARE
        Set sitm = itm.ListSubItems.Add(4)
        sitm.Text = nodeRS!DECODARE
        Set sitm = itm.ListSubItems.Add(5)
        sitm.Text = nodeRS!AVERE
        Set sitm = itm.ListSubItems.Add(6)
        sitm.Text = nodeRS!DECOAVERE
       nodeRS.MoveNext
    Loop