Private Sub cmdOK_Click()
      Dim aPw As String
      On Error Resume Next
      aPw = "; pwd = " & Text1.Text
      Set DB = DBEngine.OpenDatabase(DBName, False, False, aPw)
       If Err <> 0 Then
              MsgBox "Datenbank konnte nicht geöffnet" & _
                "werden.",vbexclamation,"DB-Fehler"
              Exit Sub
       End If
       ' ggf weitere Routinen .....
End Sub