Visual Basic - coneccion vb con as400 usando ado

hola quien puede ayudarme a conectarme a un as400 desde visual basic 6.0 usando ado sin odbc

Tendrías que buscar si existe algún proveedor OLE DB para AS/400 y usar eso, igualmente no creo que la conexión pueda ser tan directa, tal vez tengas que usar Site Server o MQSeries.

Hola Cecilia, tienes que tener instalado en tu maquina el IBM AS400 Client Access este software es una interfaz grafica que te permite conectarte al As/400, aqui te envio la forma de como conectarte al As/400, yo lo utilizo y me funiona perfectamente
Public cnAS400 As ADODB.Connection

Dim Msg, Estilo, Título
Dim adoErr As Error
Dim xUser, xPass, xSysName As String

xUser = Usuario del As/400
xPass = Password del As/400
xSysName = SysName : Nombre del sistema del As/400
LibAS400 = Library a la que quieres accesar
Set cnAS400 = New ADODB.Connection

'Habilita el bloqueo de error
On Error GoTo cnAS400_Handler
cnAS400.Open "Provider=IBMDA400;Data Source=" & _
Trim(xSysName) & ";", Trim(xUser), Trim(xPass)
Exit Function

cnAS400_Handler:
Screen.MousePointer = vbDefault
Msg = "Origen : " & adoErr.Source & vbCr & _
"Error Numero : " & adoErr.Number & " en tiempo de ejecución" & vbCr & "Descripción : " & adoErr.Description & vbCr & _
"Estado de SQL : " & adoErr.SqlState & vbCr
Estilo = vbCritical + vbOKOnly
Título = "Error en Tiempo de Coneccion"
MsgBox Msg, Estilo, Título

Saludos desde Lima - Peru