Having an "avoid-my-own-work" day - wrote you the code:
Function tblFound(strTableName As String) As Boolean
Dim tblDef As DAO.TableDef
Dim db As DAO.Database
Set db = CurrentDb
tblFound = False
For Each tblDef In CurrentDb.TableDefs
If tblDef.Name = strTableName Then
tblFound = True
End If
Next
End Function
now, back to work with me, damnit!!!