Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=SQLOLEDB.1 ;Persist Security Info=True;User ID=Пользователь;Password=Пароль;Initial Catalog=ИмяБД;Data Source=Сервер"
cnn.Open