Hallo,

ich möchte von Access 2000, also über VBA" auf die AS/400 zugreifen.
Der Aufruf lautet wie folgt:

Option Compare Database
Option Explicit

Public Sub verbindung_herstellen()

Dim cn As New ADODB.Connection
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset


cn.Open "Driver={Client Access ODBC Driver (32-bit)};System=TSTTESTDAT;Uid=User1;Pwd=NoPWD"


rst.Close
cn.Close


End Sub

Als Fehlermeldung erscheint aber immer:

Laufzeitfehler '-2147467259' (80004005):

[IBM][Client Access ODBC-Treiber (32-Bit)]Fehler bei Datenübertragungsverbindung. comm rc=10110 - CWBCO1003 - Winsock-Fehler, Funktion hat 10110, TSTTESTDAT zurückgegeben.

Weiß jemand, wie ich diesen Fehler beheben kann?

Gruß,
cocoax