Подцепи в проект DataEnvironment и подключись с его помощью, затем посмотри как изменились свойства и используй в своем коде

--Эту процедуру можно вызвать в любой части приложения--
--но я вызываю только при запуске приложения а потом использую
--установленное соединение
Sub SQLcon(cn As ADODB.Connection, ByVal strCon As String)
cn.Open strCon
cn.DefaultDatabase = "Имя базы данных"
End Sub

--Строка для открытия базы--
strCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ТвояБаза;Data Source=ИмяСервера"

--Вызов процедуры pCon-переменная хранящая установленное соединение
SQLcon pCon, strCon