Иногда открытие соединений с источниками данных занимает много времени, заставляя пользователей ждать установления связи (или возникновения ошибки). Чтобы сократить ожидание, открывайте соединения асинхронно; тогда программа сможет выполнять другие операции во время подключения. Для асинхронного открытия соединения укажите константу dbRunAsync как значение аргумента параметры метода OpenConnection. Например:

Dim wrk As Workspace, cnn As Connection, strConnect As String
Set wrk = DBEngine. CreateWorkspace("NewODBCDirect". "sa". "". dbUseODBC)
strConnect = "ODBC: DSN=Pubs;UID=SA:PWD=;DATABASE=Pubs"
Set cnn = wrk.OpenConnection("", dbDriverNoPrompt + dbRunAsync. _
═════False. strConnect)

Чтобы определить, установлено ли соединение, используйте свойство StillExecuting объекта Connection; если подключение занимает слишком много времени, его можно отменить через свойство Cancel объекта Connection.

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997