Hallo an alle

Ich wollte aus einer offenen Access 2000 Datenbank heraus eine zweite Datenbank öffnen. Habe zum Testen folgenden Code benutzt. (BS: Vista)

-----------------------------------------------------------------------

Public Sub Start_Click()

Dim Pfad As String
Dim Anwendung As String
Dim StrBefehlszeile As String


Pfad = "E:\Alle Access\Datenbank2.mdb"

Anwendung = "C:\Program Files\Microsoft Office\Office\MSACCESS.EXE"

StrBefehlszeile = [Anwendung] & " " & [Pfad]

    Call Shell(StrBefehlszeile, 1)

End Sub

----------------------------------------------------------------------------

Die Datenbank2 öffnet sich mit 2 Fehlermeldungen:

1. "Die Befehlszeile, mit der Sie Microsoft Access gestartet haben, enthält eine Option, die Microsoft Access unbekannt ist."

2. Nach Klick auf OK. Die zweite Meldung: "Microsoft Access kann die Datenbank 'E:\Alle.mdb' nicht finden.

Es ist dann nur ein leerer "Datenbankrahmen" offen.

Was muss ich ändern, das es doch noch klappt?

Mit freundlichen Grüßen
spaceman