non riesco... sto sbattendo ma nn riesco!! aiuto... sto x arrendermi... mi arrendo!

dove sbaglio? come fare? :master:

codice:
    Dim itm As ListItem
    Dim sItm As ListSubItem
    
    
    lstElencoTipi.View = lvwReport
    
    Dim fld As ADODB.Field
    
    Do While Not Rs.EOF
      For Each fld In Rs.Fields
        Set itm = lstElencoTipi.ListItems.Add(Key:="fld(0).Value", Text:="fld(1).Value")
        Set sItm = itm.ListSubItems.Add(Key:="C1", Text:="qui")
        Rs.MoveNext
      Next
    Loop