Public Function GetTables() As Boolean
GetTables = False
Dim DB As Database, tabDef As TableDef, Zähler As Long, dbFile As String
dbFile = frmOptions.txtDataPath.Text & frmOptions.txtDataName.Text
If IfExistsFile(dbFile) = True Then
    Set DB = OpenDatabase(dbFile)        '<--- hier tritt der Fehler auf!
    With DB
        For Each tabDef In .TableDefs
            If UCase$(Left$(tabDef.Name, 4)) <> "MSYS" Then
                Zähler = Zähler + 1
                arrTables(Zähler) = tabDef.Name
            End If
        Next
    End With
    GetTables = True
End If
DB.Close
Set DB = Nothing
End Function