Подключиться к базе данных SQL Server с помощью Outlook

При проверке зрения я не могу понять, что не так, я думаю, что это должно что-то делать с тем, как вы выполняете операции ADO.

Но я просто добавляю последний написанный мной макрос для подключения к SQL-серверу из макроса. Надеюсь, поможет.

Private Sub Workbook_Open()
On Error GoTo ErrorHandler
    '**************************************Initialize Variables**************************************
    sServer = "<SQL SERVER Server>"
    sDBName = "<SQL SERVER DB>"

    '**************************************Open Connection**************************************
    'adodb connection to other database
    stg_cn.Open "Provider=SQLOLEDB;Data Source=" & sServer & _
                  ";Initial Catalog=" & sDBName & _
                  ";Integrated Security=SSPI;"

    sQuery = "SELECT * " & _
             "FROM Table "

    'set reference to query
    Set cmd = New ADODB.Command
        cmd.ActiveConnection = stg_cn
        cmd.CommandType = adCmdText
        cmd.CommandText = sQuery
    Set rs = cmd.Execute
    Do While Not rs.EOF
        For i = 0 To rs.Fields.Count - 1
            <PERFORM OPERATIONS>
        Next
        rs.MoveNext
    Loop

ExitHere:
    If Not stg_cn Is Nothing Then stg_cn.Close
    Set rs = Nothing
    Set stg_cn = Nothing
    Exit Sub

End Sub

Строка подключения, предоставленная @CodePhobia, должна вам подойти.

Ниже приведены только функции идентификатора пользователя и пароля, как показано в вашем исходном вопросе при попытке подключения с использованием этого.

Dim rsConn as ADODB.Connection
Set rsConn = New ADODB.Connection
With rsConn
    .ConnectionString = "Provider = sqloledb;" & _
                        "Data Source = myServerName;" & _
                        "Initial Catalog = myCatalog;" & _
                        "Integrated Security=SSPI;" & _
                        "User ID = myUserID;" & _
                        "Password = myPassword;"
    .Open
End With

Вы можете использовать этот веб-сайт для поиска строк подключения в будущем. Он должен охватывать все возможные соединения, которые вы хотите установить.