Visual Basic para Aplicaciones - como manejar bases de as/400 con vb

nesecito, ir a buscar en una tabla del AS mediante VB, yo utilizo el adodc para la coneccion mediante access client.

Dim conection As New adodb.Connection
Dim rs As New adodb.Recordset
Dim prov As String
Dim sqlsentence As String

Prov = "Provider=IBMDA400;" & _
"Password=" & password & ";" & _
"User ID=" & usuario & ";" & _
"Data Source=" & ip & ";" & _
"Transport Product=Client Access;" & _
"SSL = Default"

conection.Open prov

sqlsentence = "SELECT (campo)dlccli FROM (mi libreria)rflib/v1client(tabla) where dlccli = "xxxx" ......"

rs.Open sqlsentence, conection

el error que envia es de que el servidor envio un error sql, y me señala " rs.Open sqlsentence, conection "alguien me podria decirque esta pasando, gracias...

Prueba a cambiar la propiedad Transport Product = Client Access por
Transport Product=ClientAccess
La diferencia es que clientaccess es todo junto.
Espero que solo sea eso. Suerte