Visual Basic - Ayuda Urgente !!!!ComboBox!!!!

Tengo un formulario de cliente que cargo un combobox de Agentes y lo cargo de la siguiente manera con su nombre y numero

Combo1.AddItem "Pedro"
Combo1.ItemData(Combo1.NewIndex) = 1

Combo1.AddItem "Pablo"
Combo1.ItemData(Combo1.NewIndex) = 10

Luego abro una ficha del cliente y leo de la base de datos que es Pablo y su numero el 10

Yo lo cargo con combo1.text="Pablo"
el numero no se como cargarlo, pero el problema es que si almaceno en la BD cuando intento leer el numero de agente con
Combo1.ItemData(Combo1.ListIndex) , me da error de indice, pero si pincho en el combo y prueba de nuevo me da el numero correcto.

Como lo puedo hacer?

Prueba con este código:

for i = 0 to combo1.listcount-1
if combo1.itemdata(i) = valor_de_BD then
end for
end if
next i

if i > combo1.listcount then
'Mostrar mensaje de problemas de lectura
end if

Gracias