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