Public Function TableExtant(strTableName As String) As Boolean
Dim db As DAO.Database
Dim tbldef As DAO.TableDef
TableExtant = False
Set db = CurrentDb
For Each tbldef In db.TableDefs
   If tbldef.Name = strTableName Then
      TableExtant = True
   End If
Next tbldef
End Function