Hallo Herr Fuerchau,

vielen Dank für die schnelle Antwort.

Hier ist mein Beispiel:

Dim conn As New ADODB.Connection

Dim rec As New Recordset
Dim ws As Worksheet
Dim sql$, i&
Set ws = ThisWorkbook.Worksheets("intro")
conn.Open "Provider=IBMDA400;" + _
"Data Source=S65xxxxx;" + _
"UserID=XXX;" + _
"Password=xxxxxxx;"
sql = "SELECT NAME, NACHNA " & _
"FROM EKA.TESTVBA ORDER BY NACHNA"
rec.Open sql, conn

.
.
.


Beim Aufruf conn.Open kommt die Fehlermeldung. Bei der Office Version handelt es sich im übrigen um Office 2002.

Ich habe es aber auch mit der Angabe einer DSN und UserID/Password per Properties Angabe versucht. Die gleiche Meldung.

Was mir allerdings auffällt: Die DSN bei den den ODBC-Quellen sind bei den Benutzer DSN angelegt, nicht bei den System-DSN.

Gruss
EKA