Verifica esistenza tabella

Public Function TblExists(sTable As String) As Boolean

On Error Resume Next
Dim tdf As TableDef
Dim MyDb As Database
Set MyDb = OpenDatabase(DbName)
Set tdf = MyDb.TableDefs(sTable)

If Err.Number = 0 Then
TblExists = True
Else
TblExists = False
End If
End Function