Data Source =  192 . 168 . 2 . 2 , 1433 ;
Network Library=DBMSSOCN;
Initial Catalog=myDataBase;
User ID=myUsername;
Password=myPassword;

'константы базы данных 
Const strProvider As String = "Provider=SQLOLEDB;" '"Provider=SQLNCLI;"
Const strServer As String = "Server=\SQLExpress;" '"Server=;" '
'Const strDatabase As String = "Database=" & strDatabase & ";"
Const strUID As String = "User Id=sa;"
Const strPassword As String = "Password=11111118"

Dim conn As New ADODB.Connection
With conn
    .ConnectionString = "Provider=sqloledb;Data Source=__ИМЯ__СЕРВЕРА__;Initial Catalog=__ИМЯ_БАЗЫ_ДАННЫХ__;Integrated 
Security=SSPI;"
    .Open
End With