Hallo,

ich habe jetzt den richtigen Befehl gefunden.

Die Zeile sieht jetzt so aus
Set cnADO1 = wrkODBC1.OpenConnection("", dbDriverNoPrompt, False, CN_STR & tbBenutzer & "; Pwd =" & tbKennwort)

und damit kann ich jetzt eine "ON Err" Abfrage starten und das ganze von vorne beginnen lassen

Übrigens Error 13 = falsches Kennwort

Vielen Dank an alle