IsTableExist

Public Function IsTableInMdb(cTable As String, cDb As String) As Boolean
Dim CurDb As Database
Dim Td As TableDef
IsTableInMdb = False
Set CurDb = OpenDatabase(cDb, , True)
For Each Td In CurDb.TableDefs
If Td.Attributes = 0 Then
If UCase(cTable) = UCase(Td.Name) Then
IsTableInMdb = True
Exit Function
End If
End If
Next
CurDb.Close
End Function