Este codigo funciona con ado2.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