Checke om tabel eksisterer i anden database

Public Function CheckTable() As Boolean

    Dim Database    As DAO.Database
    Dim Table       As DAO.TableDef

    Dim Success     As Boolean
       
    FileName = "d:\path\otherdatabase.accdb"
    If Dir(FileName, vbNormal) <> "" Then
        Set Database = DBEngine(0).OpenDatabase(FileName, , True)
        For Each Table In Database.TableDefs
            If Table.Name = "NavnPåTabel" Then
                Success = True
                Exit For
            End If
        Next
        Database.Close
    End If

    CheckTable = Success

End Function