AS/400 - Error en transacciones desde Visual Basic

Hola ojala me puedan ayudar
Cuando quiero trabajar con transacciones desde visual basic me sale error cuando trato de actualizar alguna tabla, cuando comento la linea que inicia la transaccion todas las instrucciones funcionan.
Otra cosa para conectarme uso el client access, pero solo me puedo conectarme por ODBC, quisiera saber como me conecto con ADO si usar el ODBC

el codigo de abajo me funciona con ado 2.6
public ConecAs400 As ADODB.Connection
Public Rs As New ADODB.Recordset

Private Sub Command1_Click()
Set ConecAs400 = New ADODB.Connection
Call ConectaAs400
'Set Rs = New ADODB.Recordset
Rs.Open "Select * from D031.TMOVID", ConecAs400, adOpenKeyset

If Rs.EOF = False Then
Do While Rs.EOF = False
con = con + 1
Rs.MoveNext
Loop
MsgBox "Hay " & con & " Registros"
Else
MsgBox "No hay Registros"
End If

' frmPRUEBA.Show
End Sub

Public Sub ConectaAs400()

Dim STRCONEC As String
STRCONEC = "Provider=IBMDA400;Password=T9466;User ID=GUSTAVO;Data Source=S1037WKM;Transport Product=ClientAccess;SSL=DEFAULT"
' On Error GoTo As400

ConecAs400.CommandTimeout = 120
ConecAs400.ConnectionTimeout = 120
CONECAS400.
'ConecAs400.ConnectionString = STRCONEC
ConecAs400.Open STRCONEC
'As400: 'adStateClosed = 0
' If ConecAs400.State = 0 Then 'Cuando el Valor es 0 NO CONECTO, pero si el Valor es 1 CONECTO
' MsgBox "No Funciona la Conección Con As400 Consulte con El Depto. de Informatica", vbCritical, "!! Aviso Importante !!"
' End If
End Sub

mira lo primero ue tienes que hacer es leer libros no seas flojo todo lo quieres en la mano estudia y sabras ok..........bye