Error en combobox

[rekiller]

En un formulario ponfo el siguiente codigo:

Dim cont As Integer

AdoX= "select * from TablaX"
AdoX.Refresh
Combo.Clear

For cont = 1 To AdoX.Recordset.RecordCount

Combo.AddItem AdoX.Recordset.Fields("EleX"), AdoX.Recordset.Fields("EleY")

AdoX.Recordset.MoveNext
Next



En otro formulario pongo lo mismo pero quiero que sean de otras tablas:

Dim cont As Integer

AdoY= "select * from TablaY"
AdoY.Refresh
Combo.Clear

For cont = 1 To AdoY.Recordset.RecordCount

Combo.AddItem AdoY.Recordset.Fields("EleX"), AdoX.Recordset.Fields("EleY")

AdoY.Recordset.MoveNext
Next


La tablaX el EleX es un int y EleY es un char
La tablaY igual, el EleX es un int y el EleY es un char

Me aparece un error:

Error 5 en tiempo de ejecucion. Llamada a procedimiento o argumentos no validos. Que sera?

[rekiller]

Me he dado cuenta que es problema con el ado. Con un ado funciona y con otro no.

Las tablas las hice con campos identicos en formato.

Pero me sigue dando argumentos no validos.

[GeoAvila]

Mira para no complicartela porque no lo haces con un DataCombo..

pienso que se te hara mas facil

nos vemos..