Приветствую, Форумчане!

Для коннекта к таблицам на сервере использую полученный тут код:

ConStrMSSQL = "ODBC;Driver=SQL Server;Server=SERVER;Database=TEST;UID=sa;PWD=12345;"
    For Each td In db.TableDefs
        If td.Attributes And dbAttachedODBC Then
            td.Connect = ConStrMSSQL
            td.RefreshLink
        End If
    Next

Каким образом можно проверить существование этого коннекта перед выполнением указанного кода. Типа сначала проверить и в случае отсутствия сети, переименования сервера или чего-то выдать сообщение, что связь не возможна и прервать дальнейшее выполнение программы?

http://www.sql.ru/forum/1075371/odbc-podkluchenie-predvaritelno-proverit-vozmozhnosti-konnekta