Prueba con esto:
indice es integer, rs es un recordset
En este caso asigno el ID, y el nombre de un registro por ejm si el rs metra el ID=1 y como nombre "Pepe" en el combo aparece Pepe y como indice 1 esto es muy util cuando quieres guardar el ID directamente.
Combo.AddItem rs(1)
indice = Combo.NewIndex
Combo.ItemData(indice) = rs(0)
Saludos