IfTableExist

Function TableExists (MyTableName)
Dim i
Dim db As Database
Set db = DBEngine(0)(0)
TableExists = False
For i = 0 To db.TableDefs.Count - 1
If db.TableDefs(i).Name = MyTableName Then
TableExists = True
Exit Function
End If
Next i
End Function