Visual Basic - VB-ADO conectar con AS/400

Como puedo conectarme a un ambiente de AS/400 mediante Visual Basic, si estoy utilizando ADO.

Que cambia en la cadena de configuración?????

PRUEBA CON ESTE CODIGO

xSysName = oSistema 'Nombre de tu Sistema AS400
xUser = oUsuario 'Usuario
xPass = oPassword 'Password

Public cnAs400 As ADODB.Connection

Set cnAs400 = New ADODB.Connection
cnAs400.Open "Provider=IBMDA400;Data Source=" & Trim(xSysName) & ";", Trim(xUser), Trim(xPass)

Para conectarte a una tabla
Dim rs As ADODB.Recordset

Screen.MousePointer = vbHourglass

sql = "SELECT * FROM LIBRERIA.TABLA"
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cnAs400
With rs
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic (SELECCIONA EL TIPO)
.Open sql, cnAs400
End With

Saludos Lima - Perú

Hola

para conectarte al AS/400, debes tener instalado el Client Access
cuando tengas esto
debes tener un ODBC

Dim DBAS400 As Connection
dim sql as string

sql="PROVIDER=MSDASQL;DSN=AS400;UID=MIUSUARIO;PWD=123"

Set DBAS400 = New ADODB.Connection
DBAS400.Open sql


saludos...