[MS Access] Externe Datei öffnen / ausführen

Private Sub btn_OpenFileClick() 
    ' Focus auf Textfeld mit Dateinamen setzen 
    Textfeld1.SetFocus 
    ' Shell-Objekt erzeugen 
    Dim objShell 
    Set objShell = CreateObject("shell.application") 
    ' Datei maximized öffnen, Dateiname steht in Textfeld1.Text 
    objShell.ShellExecute Textfeld1.Text, "", "", "open", 3 
    ' Shell-Objekt wieder zerstören 
    Set objShell = Nothing 
End Sub