Hallo,

für solche Zwecke hab ich für die Methode "Workbook.Open" eine kleine UserForm als Anmeldefenster erstellt, in die der Benutzer seinen Loginnamen und Kennwort eingeben muß.
Damit erstelle ich dann folgendermaßen eine ADO-Connection:

Set as400 = New ADODB.Connection
as400.Open "Driver=iSeries Access ODBC Driver;CONNTYPE=2;TRANSLATE=1;SYSTEM=ISERIES;UID=" & user & ";PWD=" & password...

Das Objekt "as400" verwende ich als globale Variable, so dass ich es je nach Bedarf benutzen kann.

Gruß,
KM