Prueba poniendo este codigo:
Public Function TableExists(DatabaseName As String,TableName As String) As Boolean
`DataBaseName = Nombre de la base de datos
`TableName = Nombre de la tabla a buscar
Dim DB As Database, t As TableDef
On Error GoTo errorhandler
Set DB = Workspaces(0).OpenDatabase(DatabaseName)
On Error Resume Next
Set t = oDB.TableDefs(TableName)
TableExists = Err.Number = 0
DB.Close
exit function
errorhandler:
Err.Raise Err.Number
Exit Function
end function
Pruebalo y me avisas...
