Es nützt da nichts nur ein paar dll's zu registrieren.
Installiere ADO (MDAC_TYP.exe) komplett neu.

Wenn du CA-Express verwendest, kannst du auch folgendes tun:

Code:
    With MyConnect
            .Provider = "IBMDA400"
            .Properties("Catalog Library List") = "MyLib1 MyLib2"
            .Properties("Convert Date Time To Char") = "TRUE"
            .IsolationLevel = adXactChaos
            .Properties("User ID") = "MyUser"
            .Properties("Password") = "MyPwd"
            .Open "Data Source=MySystem"
   end with
Ansonsten verhält sich der IBMDA400 weitestgehend wie MSDASQL. Vorteil: Du benötigst keine ODBC-Registrierung.

Alternativ kannst du auch UserId und Password weglassen, damit jeder User sich selbst anmelden muss bzw. das Kennwort nicht im Klartext in der Quelle steht.

Du benötigst hierzu nur noch:

.Properties("Prompt") = adPromptComplete