Puoi provare:

codice:
Combo1.Text = Combo1.List(rs("ID"))

Ciao