codice:
Do Until rs.EOF = True 

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

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

' List2.ItemData rs("ID") 

rs.MoveNext 

Loop

  ' Per ottenere il valore 
  
  id = List2.ItemData(List2.ListIndex)