Visual Basic - cargar combos

mi problemas es el sgte.

necesito cargar un combo de una tabla en acces y generar a la vez un indice
no visible con itemdata ,solo que se vean los datos alfabetico,para asi despues
guardar los datos (el indice no los datos alfabeticos) en la clave primaria de la tabla ,


sql = "select nom_proc from proceso "

rs.Open sql, cnn, 1, 2, adCmdText

If Not rs.EOF Then
Do While Not rs.EOF
cbo_pro.AddItem rs(0)
rs.MoveNext
Loop
End If
con esta sintaxis me arroja los nombres de los procedimiento
pero nececito generar de atras de los registros un indice ,
para despues grabar solo el indice en la tabla (cod_pro)

gracias!!!

Hola...

El combo como tal no te permitirá almacenar de forma oculta un dato. De tal forma sea que concatenes el Indice a la descripción o que uses otro control como el MsflexGrid.

Cargas indice y Descripición en respectivas columnas. ASi podrás ocultar la Columna de indice para posteriormente volver a utilizarlo como dices.

Si concatenas puedes usar:

CboX.Aditem cstr(indice) & " : " & rs!descripcion

Asi desúes solo recuperas

indice=mid(cboX,1,longitud_de_indice)

y Valor de indice es el que guardarías en tu BD.

Saludos.

'lleno el combo con los nombres de casos y sus id en el itemdata
Set rs = New ADODB.Recordset
sql1 = "Select nombre ,id From agenda order by nombre"
rs.Open sql1, cn1
Dim i As Integer
Do Until rs.EOF
i = i + 1
cmbtipo_caso.AddItem rs!Nombre
cmbtipo_caso.ItemData(i) = rs!id
rs.MoveNext
Loop
rs.Close

ahora lo que nose es como puedo hacer despues para que yo le de el resultado del item data, osea el id y me traiga lo que cargo en el nombre.