Visual Basic - obtener dato del datacombo

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

Esa n poco confuso 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