Visual Basic - obtener datos del combobox

Hola a todos... he estado leyendo la ayudad sobre combo y la verdad es que me ha ayudado muchisimo... ya he cargado el combobox con los datos de una tabla sql. Mi problema es que deseo que el usuario solo vea el la descripcion pero necesito guadar el codigo. Hasta ahora he cargado el combo con el nombre y este se muestra

la tabla tiene dos campos codigo y nombre

este es el codigo que uso para cargar el combo y que me muestre el nombre pero no se como obtener el codigo para almacenarlo. me pueden ayudar por favor

Private Sub Form_Activate()
Especialidades.MoveFirst
Do While Especialidades.EOF = False
Combo1.AddItem Especialidades!nombre
Combo1.ItemData(NewIndex) = Val(codigo)
Especialidades.MoveNext
DoEvents
Loop
End Sub

me parece que es asi
combo1.itemdata (combo1.listindex)

Creo que no explique en el combo solo se muestra el nombre de la especialidad yo necesito almacenar el codigo asociado a ese nombre....

Procuara escibir un mensaje a la vez o continuar con el mensaje anterior asi evitamos confusion y doble trabajo.:

vuelvo y te scribo:

Es un poco confusa tu pregunta, pero intentare interpretarla, tu lo que quieres es:
1) Que en un combo te aparezca el nombre y el codigo juntos??
2) Quieres que en un combo te aparezca el nombre y en otro Combo el código?

cual de las dos es??, con gusto te ayudo
Saludos colega

el combobox tiene dos propiedades donde almacena los datos:
combo.text y combo.itemdata
estos dos los llenas con los campos descripcion y codigo de tu tabla, al momento de seleccionar un item de tu lista, estas seleccionando estos dos campos a la vez.. el itemdata se encuentra oculto..

Haber amigos antetodo muchas gracias por la ayuda
actualmete tengo un combo box endonde aparecen todas las especialidades, hasta alli no hay problema, sin embargo yo necesito obtener el codigo asociado a la especialidad seleccionada.
La tabla con la se alimenta el combobox tiene los campos codigo(de la especialidad), nombre(de la especialidad), por el momento no me interesa que el usuario pueda ver el códido con el nombre me basta.
En visual Fox lo trabaja super facil asociaba al combobox la tabla y aunque solo mostrara el nombre, en el evente when podia obtener el codigo a medida que el usuario se movia por el combo y almacenarlo en una variable.. pero en VB 6 no funciona igual.

Hola, en la asignación al valor ItemData puedes utilizar:

Combo1.ItemData(Me.Combo1.ListCount - 1) = Especialidades!codigo

También, si te desplazas a través del recordset, puedes asignar el valor del campo codigo directamente.

Gracias muchachos ya solucionamos el problemita, la verdad me ayudaron bastante.
Y como estoy empezando con VB 6 estoy segura me seguiran ayudando