Outlook, VBA macro, Connection string to SQL Server Express - sql-server

Question

I am new in VBA via Outlook, so ...
I use Outlook 2016, and SQL Server 2017, and I try to connect a macro to SQL Server Express 2017 via ADODB.
Here is my code
On Error GoTo ErrorHandler
Dim cnnStr As String
cnnStr = "Provider=SQLOLEDB;" & _
"Server=ALTROISIEME\SQLEXPRESS;" & _
"Initial Catalog=XX_Options;" & _
"Trusted_Connection=SSPI;" & _
"uid=xxxx;" & _
"pwd=xxxxxx;"
'GoTo Fin_99
Dim cnn As New ADODB.Connection
cnn.CommandTimeout = 900
cnn.ConnectionString = cnnStr
cnn.Open
GoTo Fin_99
Dim cmd As ADODB.Command
Set cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "USP_Outlook_Add_File_Data"
cmd.Parameters.Append cmd.CreateParameter("#Categorie", adVarWChar, adParamInput, , "IB_DailyTrade")
cmd.Parameters.Append cmd.CreateParameter("#NomDuFichier", adVarWChar, adParamInput, , FileNameExt)
cmd.Parameters.Append cmd.CreateParameter("#Donnee", adVarWChar, adParamInput, , HTMLTxt)
Dim rst As New ADODB.Recordset
rst.CursorType = adOpenStatic
rst.CursorLocation = adUseClient
rst.LockType = adLockOptimistic
rst.Open cmd
Set rst = cmd.Execute
ExitNewItem:
GoTo Fin_99
ErrorHandler:
MsgBox Err.Number & " - " & Err.Description
Resume ExitNewItem
Fin_99:
On Error GoTo CloseRst
cnn.Close
Set cnn = Nothing
CloseRst:
rst.Close
Set rst = Nothing
The macro throws an error on line
Set cmd.ActiveConnection = Cnn
with a message.
91-Variable object or variable of block not defined
Could you help?
Thank you
André

Answer 1

I found all my issues. The code is not so far from my initial post:
On Error GoTo ErrorHandler
Dim cnnStr As String
cnnStr = "Provider=SQLOLEDB;" & _
"Server=?????????\SQLEXPRESS;" & _
"Initial Catalog=???????;" & _
"Trusted_Connection=SSPI;" & _
"uid=???;" & _
"pwd=???;"
Dim cnn As New ADODB.Connection
Set cnn = New ADODB.Connection
cnn.CommandTimeout = 900
cnn.ConnectionString = cnnStr
cnn.Open
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "USP_Outlook_Add_File_Data"
cmd.Parameters.Append cmd.CreateParameter("#Categorie", adVarWChar, adParamInput, 50, "IB_DailyTrade")
cmd.Parameters.Append cmd.CreateParameter("#NomDuFichier", adLongVarWChar, adParamInput, -1, FileNameExt)
cmd.Parameters.Append cmd.CreateParameter("#Donnee", adLongVarWChar, adParamInput, -1, HTMLTxt)
Dim rst As New ADODB.Recordset
Set rst = New ADODB.Recordset
rst.CursorType = adOpenStatic
rst.CursorLocation = adUseClient
rst.LockType = adLockOptimistic
rst.Open cmd
Set rst = cmd.Execute
ExitNewItem:
GoTo Fin_99
ErrorHandler:
MsgBox Err.Number & " - " & Err.Description
Resume ExitNewItem
Fin_99:
If cnn.State = 1 Then
cnn.Close
Set cnn = Nothing
End If
If rst.State = 1 Then
rst.Close
Set rst = Nothing
End If