Visual Basic - Cargar con combo

Que tal amigos foreros:

Tengo una consulta, estoy diseñando un formulario en el que tengo un par de combos, los datos los traigo de tablas que tengo en mi base acces (estoy trabajando con ADO) y luego mediante un boton quiero guardar los resultados en una otra tabla, yo cargo el combo de la siguiente forma:

En un módulo coloqué:

Sub Especialidad()
With RsEspecialidad
If .State = 1 Then Close
.Open "select * FROM CATEGORIA", base, adOpenStatic, adLockOptimistic
End With
End Sub

Luego en el botón de cargar a mi base los resultados del combo entre otros campos:

Private Sub CmdcrearCuenta_Click()
I
If TxtNombre.Text = "" Then MsgBox "El campo Nombre no puede estar vacío", vbInformation, "Aviso": TxtNombre.SetFocus: Exit Sub
If TxtApellido.Text = "" Then MsgBox "El campo Apellido no puede estar vacío", vbInformation, "Aviso": TxtApellido.SetFocus: Exit Sub
If CmbEspecialidad = "" Then MsgBox "El campo Especialidad no puede estar vacío", vbInformation, "Aviso": CmbEspecialidad.SetFocus: Exit Sub

With RsUsuarios
.Requery
.AddNew
!NomPers = TxtNombre.Text
!ApePers = TxtApellido.Text
!CodEspe = CmbEspecialidad
.Update
.Requery
End With

End Sub

Hasta acá todo bien, el problema es.... que yo en el combo coloco la "descripción de la especialidad" para que el operador no tenga problemas en identificarlo... y lo que yo deseo guardar en la campo de la base no es esto sino su ID que es numérico..... es decir es otro campo... cómo puedo hacer??? Desde ya muchas gracias!!!!!

Hola

Mariel, con el Combobox si puedes realizarlo pero solo utilizando con otro objeto ADODC aca esta el ejemplo:

http://kayprogramacion.blogspot.mx/2012/04/datacombo-pais-y-ciudad-enlazados.html

tengo un datacombo que te puede servir para el ejemplo que pones pasame tu correo y te envio un correo o escribeme a mi correo,

Saludos,