Как проверить наличие базы данных на сервере

[Oooleg]

Всем привет!

Подскажите пожалуйста, как правильно проверить доступность БД

Файловая БД лежит на сервере ЛС, при открывании книги перед подключением к БД проверяется условие:

DbFileName = "\\192.168.20.2\erp_system\POSS_ERP S.mdb"
If Dir(DbFileName, vbNormal) <> "" Then
(подключение, обновление данных ...)
else
"Извините, немогу найти БД"
end if

В пределах домена или при отсутствии сетвого подключения это работает, а вот за пределами ЛС сначала тупка секунд 20, а потом
print1.JPG

Как правильно выполнить такую проверку?

Ну или может как-нибудь проверить находится ли комп, на котором запущена книга, в нужном домене...

[EducatedFool]

Почитайте эту тему

В этом сообщении есть код для быстрой проверки доступности ресурса (через пинг IP-адреса).