Se il campo Rs("id") è numerico potresti fare così :

List1.AddItem " Numero " & Rs("numero").Value
List1.ItemData(List1.NewIndex) = Rs("id").Value

In questo modo Aggiungi in visualizzazione solo il secondo campo,
ma ottieni il valore del primo selezionando l'elemento dalla
lista e ricavandolo da

Dim myID as Long
......
......
myID = List1.ItemData(List1.ListIndex)



Ciao,