Private Sub Command1_Click()
On Error Goto Command1_out:
  ' Datenbank über Commondialog auswählen
     CommonDialog1.ShowOpen
  ' Timer aufrufen, um SendKeys-Befehle zu schicken
     Me.Timer1.Interval = 500 ' Zeitfaktor egal
 ' Datenbank über ShellExecute maximiert öffnen
    Call ShellExecute(Me.hwnd, "open",  _
       CommonDialog1.FileName, "", _
           "", SW_MAXIMIZE)
  ' Nun erscheint die Dialogbox zum Eingeben
  ' des Datenbankkennworts
  ' Mauszeiger wird automatisch im Textfeld der
  ' Dialogbox fokussiert
  ' Nun werden die bereits ans System geschickten
  ' Sendkeys-Befehle automatisch abgerufen
  ' Die Dialogbox verschwindet nach ca. 1 Sek.
  ' und die Datenbank ist geöffnet
Command1_out:
Exit Sub
End Sub
 
Private Sub Timer1_Timer()
  ' Passwort 123456 senden
  ' und bestätigen:
 
    SendKeys "123456"
    SendKeys "{ENTER}"
    Me.Timer1.Interval = 0
End Sub

Programmieren und Wahnsinn liegen nah beieinander. Es ist jeden Tag zu pr?fen, ob sie schon deckungsgleich sind!