Obtener codigo al cargar el nombre en un combobox mediante un recordset

[David]

Con el Array es fácil, mira:

Código vb:

'En las Declaraciones
Private Codigos() As String
 

En el evento Load de la ventana:

Código vb:

ReDim Codigos(0)
 

Al agregar un elemento haz esto:

Código vb:

ReDim Preserve Codigos(UBound(Codigos) + 1)
Codigos(UBound(Codigos)) = rsCategoria!codcat
cbCategoria.ItemData(cbCategoria.NewIndex) = UBound(Codigos)
 

Luego, para recuperar el valor:

Código vb:

Text1 = Codigos(cbCategoria.ItemData(cbCategoria.ListIndex))