Como lleno el ItemData de un ComboBox

Que tal, tengo el siguiente problema, tengo un combo que quiero llenar con los datos de un Recorset, el codigo es el siguiente:

Do While Not rsCombo.EOF
objCombo.AddItem rsCombo(1)
objCombo.ItemData(i) = rsCombo(0)
rsCombo.MoveNext
i = i + 1
Loop

Me manda un error en el siguiente error en el ItemData. "No Coinciden los tipos". Mi pregunta si es correcto lo que hago o de que forma puedo hacer que el combo me de la clave del item seleccionado con respecto al recorset

Bien. Una respuesta aceptable.