Public Function ExisteTabla(Db As Database, ByVal NombreTabla As String) As Boolean
Dim Tabla As TableDef
For Each Tabla In Db.TableDefs
If UCase(Tabla.Name) = UCase(NombreTabla) Then ExisteTabla = True: Exit Function
next Tabla
ExisteTabla = False
End Function