Visual Basic - Llenar ComboBox con dos campos

Saludos a la comunidad. Tengo una tabla con varios campos, pero necesito llenar un combobox con los datos de dos campos:
Ejemplo:
Tabla: Tipo_Persona
Campos a utilizar: CODIGO CHAR 1, DESCRIPCION CHAR 20
Datos:

CODIGO DESCRIPCION
====================
N NATURAL
J JURIDICA
C CLIENTE
P PROVEEDOR
Z TODOS

Al llenar el combobox sólo puedo agregar CODIGO o DESCRIPCION.

Necesito los dos campos, entonces al desplegar la aplicación el combobox me mostrará la DESCRIPCION, y al seleccionar un item, en una variable oculta debe quedar el valor del CODIGO, así entonces al grabar una de las tablas relacionada con TIPO_PERSONA, sólo se grabar el valor del CODIGO.
El campo CODIGO debe ser char, por eso no me sirve ITEMDATA.

Agradeceré sus observaciones.

Larry

Puedes utilizar un array de dos combobox.
Combobox(0) y Combobox(1).

Uno de ellos ComboBox(0), oculto, y que contenga el campo codigo, y el otro combobox(1), que contenga la descripción.
Al seleccionar la descripcion, que se seleccione tambien el codigo.

utilizando el evento OnClick.
Combobox(0).listindex = combobox(1).listindex

Saludos, muchas gracias por responder, creo que ese será el camino.

Larry

Prueba con este codigo.....

cboProductID.Clear
While Not rsProducts.EOF
cboProductID.AddItem rsProducts!Product_ID
cboProductID.ItemData(cboProductID.NewIndex) = rsProducts!Product_ID
rsProducts.MoveNext
Wend

Muy bueno funciono. una pregunta se puede armar como una rutina y llamarlo en cualquier parte del codigo de un formulario?.

Claro, solo debes de crear una funcion general, en donde le envies como parametro el objeto ComboBox, y el conjunto de datos, adicional el nombre del campo "codigo" y el de "descripcion", luego dentro de la funcion haces las asignaciones.

Claro que si ... yo hago algo asi ...

''DEBERIAS generar los rs, cbo con no,mbres estandar y en vez del nombre del campo el indice