Hallo,

ich habe ein Probelm mit dem ADO-Zugrif auf die AS/400. Der Eigentliche Zugriff funktioniert wunderbar und ich kann aus auch mit dem SQL-Statement arbeiten (Lesen) allerdings liefermit .RecordCount immer den Wert -1.

Code:

Option Explicit

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command1_Click()

cn.Provider = "IBMDA400"
cn.ConnectionString = "Data Source=S44G1888"
cn.Open

With rs
.LockType = adLockReadOnly
.CursorType = adOpenKeyset
.Open "SELECT * FROM BDLERN.YBOD", cn
End With

rs.MoveLast

MsgBox rs.RecordCount

End Sub

Kann mir jemand sagen was ich falsch mache oder einen Tip geben was zu tun ist? Vielen Dank im Voraus.

mfg

Sascha