Aendere mal den Errorhändler wie folgt:
ErrorHandler:
Select Case Err
Case 4042: 'Database could not be deleted
Msgbox "Datenbank konnte nicht gelöscht werden, ein möglicher Grund: Ist gerade von einem anderen User geöffnet",48
Resume goOut
Case 4005:
Msbbox "Datenbank wurde bereits angelegt",48
Resume GoOut
Case Else:
Msgbox "Fehler " & Err & " - " & Error$ & Chr(10) _
& "Fehler aufgetreten in Code-Zeile " & Erl, 48, "Laufzeitfehler"
Resume GoOut
End Select
.... und wenn Du die Meldung unterdrücken willst, dann nimmst Du die Zeile
Msbbox "Datenbank wurde bereits angelegt",48
einfach raus.