Ciao, se l'ID è di tipo numerico, puoi fare una cosa del genere:
per recuperare il valore della voce selezionata in elenco:codice:Private Sub PopolaLista() Do While not rs.eof Lista.AddItem rs("nome") Lista.ItemData(Lista.NewIndex) = rs("id") rs.movenext loop End Sub
codice:Private Function RecuperaId() as long RecuperaId=Lista.ItemData(Lista.ListIndex) End Function![]()