Подключение к MSSql через VBA в Outlook

Public CN As ADODB.Connection

Public Function ConnectCN() As Boolean
        ConnectCN = False
        Set CN = New ADODB.Connection
        With CN
            If .State = adStateOpen Then .Close
            .Provider = "SQLOLEDB.1"
            .Properties("NETWORK LIBRARY").Value = "DBMSSOCN"
            .CursorLocation = adUseClient
            .Properties("DATA SOURCE").Value = strServerName & "," & strPort
            .Properties("PERSIST SECURITY INFO").Value = True
            .Properties("USE PROCEDURE FOR PREPARE").Value = 1
            .Properties("AUTO TRANSLATE").Value = True
            .Properties("PACKET SIZE").Value = 4096
            .Properties("USE ENCRYPTION FOR DATA").Value = False
            .Properties("INITIAL CATALOG").Value = strDBName
            .Properties("USER ID").Value = strSQLuser
            .Properties("PASSWORD").Value = strPassword
            .ConnectionTimeout = 15
            .IsolationLevel = adXactCursorStability
            .Open
            ConnectCN = True
        End With
End Function