ник: Анатолий (Киев)
Что значит "без DAO и без ADO"? Без подключенных библиотек?
Тогда так:
Dim db As Object, s As String
On Error Resume Next
Set db = OpenDatabase(Путь)
s = db.TableDefs(ИмяТаблицы).Name
If Err.Number = 0 Then Msgbox "Есть!"
Если и без VBA, то попробуйте присоединить таблицу макрокомандой TransferDatabase.