¿Cómo llamar itemdata de un combobox a un texbox?

[atorrante]

hola, ojala alguién me pueda ayudar..
lo que pasa es lo siguiente, estoy modificando un codigo que pille para aprender
y no me resulta llamar uno de los datos por que es un número, lo convierto a string pero me sale error, no entiendo mucho..pero aquí dejo el source para que alguien me heche una mano..
quiero que me pueda llamar palabras.

Código:

Private Sub LoadValues(ByVal vValue As Boolean)
    Dim i As Integer
    ComboN.Clear
    
    For i = 0 To TotalPerson - 1
        ComboN.AddItem MyPerson(i).pName '*** Adding a new Item ***
        '*** Adding Numeric Value/Array Index depending upon the request *** <--- Aquí está lo que tengo que modificar o no.. para que pueda llamar texto
        ComboN.ItemData(ComboN.NewIndex) = IIf(vValue, MyPerson(i).pAge, i)
    Next i
cboName.Refresh

    '*** Setting default Value into the combobox ***
   ComboN.Text = ComboN.List(DefaultText)
End Sub

Y LLAMA ESTOS DATOS

MyPerson(0).pName = "Pepe"
MyPerson(0).pCountry = "spain"
MyPerson(0).pAge = "20"

MyPerson(1).pName = "Zindal"
MyPerson(1).pCountry = "France"
MyPerson(1).pAge = "21"


Private Sub ComboN_Click()
Dim idx As Integer
idx = cboName.ListIndex

If chkValue.Value = vbChecked Then
txtAge.Text = ComboN.ItemData(idx)
ElseIf chkValue.Value = vbUnchecked Then

txtAge.Text = MyPerson(ComboN.ItemData(idx)).pAge
txtCountry.Text = MyPerson(ComboN.ItemData(idx)).pCountry
End If

End Sub

asi lo llama al seleccionar el combobox..

pero yo quiero que en el Año ".pAge".. pueda ser una palabra como los demas datos.

GRACIAS

[Avellaneda]

No. No puedes!

La propiedad ItemData del ComboBox sólo admite números.
Te lo están diciendo en el ejemplo:

'*** Adding Numeric Value/Array Index depending upon the request ***

[atorrante]

aaaaaaa.. gracias! te entendi perfectamente

como podría hacer lo mismo?.. es decir con un combobox (dropdown list) llenar 2 texbox con datos.

lo agradeceria mucho!!...

saludos

[Avellaneda]

Pues.. en la propiedad ItemData incluirle el número de registro y así ya puedes sacar el valor de cualquier campo. p.ej:

Combo1.ItemData(Combo1.NewIndex) = recordset.AbsolutePosition

y después en el evento Click del combo ya tienes el registro seleccionado:

Recordset.AbsolutePosition = Combo1.ItemData(Combo1.ListIndex)