Originariamente inviato da Beziel
...
With ListView1.ListItems
.Add, ,rs.Fields("nome").Value, 1
End With

Come puoi vedere li carico da un db, volevo inserire l'id del record.
si l'id è un numerico long
perfetto.
Nella key dell'item è impossibile caricare un valore numerico, non lo accetta nemmeno convertito in stringa, quindi io per ovviare a questo inconveniente, aggiungo un carattere prima del numero (id), in questo modo:
codice:
With ListView1.ListItems 
  .Add, ,"K" & rs.Fields("nome").Value, 1 
End With
poi, quando faccio doppio click sull'item scrivo questo:
codice:
Dim lngID As Long
lngID = CLng(Left(ListView1.Selected.Key, 2))