Visual Basic - combobox

HOLA QUE TAL:
ESTOY DESARROLLANDO UN SISTEMA EN VB6 CON ACCES Y TOY NESECITANDO SAVER COMO PUEDE HACER
LO SIGUIENTE:

TENGO UN COMBOBOX LLAMADO CBOPERSONA QUE HACE ESTO:
***************************************************
FORM_LOAD()

DIM RECOR AS ADODB.RECORDSET

RECOR.OPEN "SELECT ID_PERSONA, APELLIDO, NOMBRE FROM PERSONAS ", BASEDATO, ADOPENSTATIC
WHILE NOT RECOR.EOF
CBOPERSONA.ADDITEM RECOR("APELLIDO") & "," & ("NOMBRE")
RECOR.MOVENEXT
WEND

END SUB
*******************
ESTE COMBO TIENE LOS APELLIDOS,NOMBRE DE LAS PERSONA DE UNA TABLA.
LO QUE ESTOY NECESITANDO ES QUE CUANDO SELECCIONO UNA PERSONA (CUANDO AGO UN CLIK EN EL COMBO)
NECESITO GUARDAR EL ID_PERSONA(el identificador) DE LA PERSONA Q ELEJI O SELECCIONE EN
EL CBOPERSONA, EN UNA VARIABLE DE TIPO INTEGER.

BUENO DESDE YA MUCHAS GRACIAS.
ESPERO UNA PRONTA AYUDA. ESTOY NECESITANDO DE SUMA URJENCIA.
ATTE SALUDOS!!!!!

Pues almacena los ID en un Array y te guias solo por la posición.

Saludos

Pues así:

RECOR.OPEN "SELECT ID_PERSONA, APELLIDO, NOMBRE FROM PERSONAS ", BASEDATO, ADOPENSTATIC
WHILE NOT RECOR.EOF
CBOPERSONA.ADDITEM RECOR("APELLIDO") & "," & ("NOMBRE")
a(x) = RECOR("ID_PERSONA")
RECOR.MOVENEXT
WEND

END SUB

Y de ahí en el evento Click del Combo mostraría el Array por medio de la posición, osea del ListIndex. Ovbiamente debo declarar el array dínamico deacuerdo a la cantidad de Registros.