Yo lleno asi el combo ....
cmb.AddItem UCase(Rs(1)) -- lo que se ve
cmb.ItemData(cmb.NewIndex) = lo que necesitas como oculto
Cabe indicar que este dato sera la identificacion que necesitas
cmb.AddItem UCase(Rs(1)) -- lo que se ve
cmb.ItemData(cmb.NewIndex) = lo que necesitas como oculto
Cabe indicar que este dato sera la identificacion que necesitas