Visual Basic - VB y AS400

Alguien sabria indicarme con un ejemplo como puedo acceder a una base de datos del AS400 mediante una conexion ODBC y Visual Basic???

Gracias!!!!

Aquí tienes un ejemplo de conexión al AS400 mediante ODBC y funciona!!

Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim sql As String

Set CN = New ADODB.Connection
CN.Open "DSN=NombreDsn", "USUARIO", "CONTRASEÑA"

Set RS = New ADODB.Recordset
sql = "SELECT * FROM TABLA"
RS.Open sql, CN

Espero que a tí te funcione, lo que es más importante es que el DSN esté bien configurado...