Подключения

Для явного подключения к источнику данных объявите переменную Connection с помощью выражения:

Dim ADOConn As New ADODB.Connection

Вызовите метод Open объекта ADOConn, передавая в качестве аргумента строку подключения.

ADOConn.Open "DSN=AdvWorks;UID=xxx;PWD=xxx"

(Здесь ххх -идентификатор пользователя и пароль соответственно.) Аргумент DSN — имя источника данных Data Source.

Когда объект Connection создан, его можно назначить свойству ActiveConnection объектов RecordSet или Command.