Daten aus MDB-Datei kopieren?

Sub Datei_öffnen1()
Dim Filter As String, Title As String
Dim FilterIndex As Integer
Dim Filename As Variant
Filter = "Excel Files (*.xls),*.xls," & _
"Text Files (*.txt),*.txt," & _
"All Files (*.*),*.*"
FilterIndex = 3
Title = "Wählen Sie bitte eine Datei aus!"
ChDrive ("C")
ChDir ("C:\Eigene Dateien")
With Application
Filename = .GetOpenFilename(Filter, FilterIndex, Title)
ChDrive (Left(.DefaultFilePath, 1))
ChDir (.DefaultFilePath)
End With
If Filename = False Then
MsgBox "Es wurde keine Datei ausgewählt."
Exit Sub
End If
Workbooks.Open Filename
MsgBox Filename, vbInformation, "Datei geöffnet"
ActiveWorkbook.Sheets("Daten").UsedRange.Copy _
Destination:=Workbooks("Projekt1.xls").Sheets("Export1").Range("A1")
End Sub