Visual Basic - Elemento de un comboBox

Hola, estoy haciendo una pequeña aplicacion en VB 6. Necesito llenar un comobox con los elemetos de una tabla que contiene dos columnas, Codigo de Establecimiento y Nombre de Establecimiento. El codigo y el nombre tienen formato texto. Mas abajo muestro el codigo para llenar el comboBox, sin embargo, cuando se selecciona el nombre del establecimiento desde el ComboBox, necesito recuperar el código. Es decir, necesito mostrar solo el nombre del Establecimiento, pero recuperar el código. Intenté con el ItemData pero me arrojaba un error pq solo se puede asignar un dato numérico, y el código es de formato texto ¿alguien sabe como solucionar este problema?

Set rcs = bdRem.OpenRecordset("Select * from testable order by nombre")

rcs.MoveFirst
While Not rcs.EOF
cboEstable.AddItem rcs!nombre
rcs.MoveNext
Wend

rcs.Close

¡eres mi ídolo, pinche nuevo!
(lo de "pinche" es de gusto, no para ofenderte)
andás fenómeno con las respuestas, se ve que estas inspirado
saludos, che

Primero, gracias por la respuesta. Como estoy recien empezando con VB, pensé que podria existir otra solución mejor!!!