Pues lo que yo suelo hacer es cargar el código en itemdata:
(código escrito "al vuelo", no en el editor de Visual B.)
Código:
'Llenando el combo:
Do While not RS.Eof
cb_empresas.Additem RS("Empresa")
cb_empresas.ItemData(cb_empresas.ListCount -1) = RS("Codigo")
RS.MoveNext
Loop
'Seleccionando un Item:
cb_empresas_Click()
Text1.Text = cb_empresas.ItemData(cb_empresas.ListIndex)
End Sub