Для начала нужна библиотека типов.
Эта библиотека типов даст нам классы. Первый класс, который нас интересует это соединение. Его нужно создавать первым. Вот так:
Private Sub Command1_Click() Dim adoConnect As ADODB.Connection Set adoConnect = New ADODB.Connection ' Код Set adoConnect = Nothing End Sub
У класса Connection есть хороший метод Open, который открывает соединение. Ему нужно сообщить в качестве параметров строку инициализации, имя и пароль.
С именем и паролем понятно куда идти ? К администратору... А вот строку соединения нужно создать. Самое простое - это использовать ADO Data Control для ее генерации, как в шаге "Шаг 35 - Настройка ADO для доступа к SQL Server" и оттуда ее содрать в свой код.
Private Sub Command1_Click() Dim adoConnect As ADODB.Connection Set adoConnect = New ADODB.Connection Dim strConnect As String strConnect = "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=Servers" adoConnect.Open strConnect, "sa", "123" Set adoConnect = Nothing End Sub
Можно сделать и по-другому, строку соединения указать в ConnectionString.