Questo scrive l'intero contenuto dei campi del record nella listview

Do Until rs.EOF
For Each fld In rs.Fields
stringa1 = stringa1 & " " & rs(fld.Name)
'Debug.Print stringa1
Next
List1.AddItem stringa1
stringa1 = ""
rs.MoveNext
Loop

Ciao