Hallo Herr Fuerchau,

habe es mit den Einträgen versucht:

Dim conn As New ADO.Connection

conn.connection = "DSN=MyDSN"
conn.properties("User ID") = "MyUserID"
conn.properites("Password")= "MyPwd"

Gleiche Meldung 430 beim Auf von conn.connection.

Wenn ich im Forum richtig gelesen habe, kann man bei der ADO Schnittstelle als DSN auch eine ODBC-Verbindung angeben (Siehe Beitrag: Aus Excel Zellenwert an AS400 übertragen, aus November 2007).

ie kann ich denn überhaupt den Provider IDMDA400 auf meinem PC erkennen? Wird er von Client Access installiert?

Wenn ich es per ADO nicht hinbekomme, werde ich am Freitag mit einer ODBC-Verbindung weiter testen.

Vielen Dank für Ihre Unterstützung.