Visual Basic - Utilizar base de datos de AS400

Por favor quiciera que me ayuden, estoy programando en Visual Basic quiero utilizar base de datos de AS400. Como debo hacer el acceso para usar las bases de datos de AS400

Gracias,

Jorge, mirá no es mucha la ayuda que puedo darte, lo unico que se que para usar archivos de AS400 debés hacerlo por vía ODBC, ahí debes agregar la lista de bibliotecas donde se encuentran esos archivos, pero antes debés crear el ODBC, ponés un data y lo enlazas al ODBC que creaste, igual preguntá bien como hacer esto, yo no lo hice nunca pero lo he escuchado, espero que te sirva de algo
Suerte
Saludos
Lucrecia

Si trabajas con el IBM AS400 Client Access, el primer paso es
hacer referencia al una dll cwbzzidx.dll de Proyecto/*Referencias
Al hacer referencia a esta dll se adiciona al proyecto automaticamente
librerias del AS400
el siguiente paso es crear una conexion en tu modulo
Public cnAS400 As ADODB.Connection
Para conectarte llama a esta subrutina
Function startConnection_DataSourceAS400() As Boolean
Dim adoErr As Error
Dim xUser, xPass, xSysName As String
xUser = <Usuario>
xPass = <Password>
xSysName = <SysName>
LibAS400 = <Library>
Set cnAS400 = New ADODB.Connection
On Error GoTo cnAS400_Handler
cnAS400.Open "Provider=IBMDA400;Data Source=" & Trim(xSysName) & ";", Trim(xUser), Trim(xPass)
startConnection_DataSourceAS400 = True ' Coneccion correcta
Exit Function
cnAS400_Handler:
startConnection_DataSourceAS400 = False
For Each adoErr In cnAS400.Errors
MsgBox adoErr.Description, vbCritical, "Error en tiempo de ejecución."
Next
Exit Function
End Function
Saludos desde Lima
Saludos desde Lima