Visual Basic - dificil de contestar

hola ante todo gracias por contestar
tengo el siguiente codigoDim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Set con = CreateObject("ADODB.connection")
Set rst = CreateObject("ADODB.Recordset")
con.Open "DSN=AS400", "usuario", "contraseña"
rst.Open "select * from datoseu.eecli02", con
con esto lo que intento es conectarme a una odbc que a su vez esta conectada al as400 pero me da un error
error 13 no coinciden los tipos
alguien me podria ayudar??
gracias

Que estas usando para conectarte a AS/400 ? Client Access ?
Segundo puedes usar "ligadura temprana" para los objetos como :

Dim rst As ADODB.Recordset
Dim con As ADODB.Connection
Set con = new ADODB.connection
con.Open "DSN=AS400", "usuario", "contraseña"

Set rst = New ADODB.Recordset
rst.Open "select * from datoseu.eecli02", con, db, adOpenStatic, adLockOptimistic

Puedes conseguir el OLEDB Provider para AS/400 en el site de IBM o si estas usando una version reciente de Client Access este debe traer el provider.