Ciao

ho provato così ma mi dice utilizzo non valido del property.
purtroppo il mio MSDN non funziona scusate se rompo troppo le scatole.

-----------------------------------------
Do Until rs.EOF = True

stringa = rs("data") & " ; " & rs("trattamento") & " ; " & rs("varie")

List2.AddItem ("stringa")
List2.ItemData rs("ID")

rs.MoveNext

Loop
------------------------------------------