Если DAD то можно использовать примерно следующее

Function Exist_Table(t_name As String)
' Возвращает TRUE если таблица существует
Dim Db As DAO.Database, Td As DAO.TableDef
Set Db = CurrentDb
Exist_Table = False
For Each Td In Db.TableDefs
If t_name = Td.Name Then
Exist_Table = True
End If
Next
Db.Close
Set Db = Nothing
End Function

Вообще говоря, проще всего написать функцию, которая попытается его открыть. Если возникла ошибка, то запроса нет, если ошибки нет, то он есть.