Visual Basic.NET - Conexión con el AS/400

hola amigos

Quisiera que alguien (POR FAVOR!!!) me oriente cual es la manera correcta de conectarme desde el VB .Net con una Base de Datos en AS/400.

Me conecté mediante una conexión ADODB.Connection sin problemas,

Pero a la hora de querer recorrer los datos de una tabla con un ADODB.Recordset

No me trae todos los datos!!!!!

Algunos me los trae en Blanco ¿?

No entiendo NADA, son mis pininos con esto del VB .Net,, pero he trabajado con el VB bastante

Agradeceré mucho a la amable persona que me brinde una mano amiga :)

Jose

Espero te sirva

Dim sCnn As String

' Seteo la Conexion
sCnn = "Provider=IBMDA400.DataSource.1;" & vbCrLf
sCnn += "Data source=" & NONBRE DEL AS/400 & ";" & vbCrLf
sCnn += "Default Collection=" & BASE DE DATOS & ";" & vbCrLf
sCnn += "User Id=" & USUARIO & ";" & vbCrLf
sCnn += "Password=" & PASSWORD & ";" & vbCrLf
sCnn += "Transport Product=Client Access;SSL=DEFAULT"

m_oCnn = New OleDb.OleDbConnection(sCnn)
m_oCnn.Open()

Muchas Gracias por la ayuda Sergio !

Ahora tengo problemas a la hora de leer la Data . . .

Ds = New DataSet
Da = New OleDb.OleDbDataAdapter

Da.SelectCommand = New OleDb.OleDbCommand("Select ........", gCn1)
Cb = New OleDb.OleDbCommandBuilder(Da)
Da.Fill(Ds, "cliente")

Esta ultima instrucción (Da.Fill....) solo funciona con ciertos campos en el Select´, los campos Numéricos ..... si le meto campos Cadena al Select este NO FUNCIONA. Y me sale el sgte. error

"The data value could not be converted for reasons other than sign mismatch or data overflow. For example, the data was corrupted in the data store but the row was still retrievable."

En fin ...... Seguiré en la busca de la Respuesta

te Reitero mi agradecimiento :)

Jose