Excel bestand openen

[Tim Hovius]

Als ik met dit programma een database wil openen, krijg ik Run-time Error 3343
Het lukt me niet om de database in te laden.

Weet iemand raad?

Private Sub mnuOpen_Click()
CommonDialog.Filter = "Excel bestanden (*.xls) | *.xls"
CommonDialog.ShowOpen
DatabaseName = OpenDatabase(CommonDialog.FileName)
Data.Caption = CommonDialog.FileTitle
Blad = InputBox("Geef de naam van het blad dat u wilt inporteren. (Standaard is dit Blad1.)", "Selecteer een blad", "Blad1")
Data.RecordSource = Blad
txtNaam.DataField = "Naam"
txtAdres.DataField = "Adres"
txtMerk = CommonDialog.FileName
End Sub