connection string error

[clarah]

Hello

I am calling up a stored procedure from SQL into excel. My ADODB connection is not working. Below is my code. Where am I missing it?

Private Sub CommandButton1_ Click()

Dim sConnectionStri ng As String
sConnectionStri ng = "Provider=SQLOL EDB;" & _

"Server=NBMISSQ LDR01;" & _

"OLE DB Services = -2;" & _

"Integrated Security=SSPI;" & _

"Initial Catalog=Measure ment;"

' OpenConnection
Dim GenerateGLCost As ADODB.Command
Dim parBranch As ADODB.Parameter
Set GenerateGLCost = New ADODB.Command

With GenerateGLCost
.ActiveConnecti on = cn
.CommandText = "FIN_spComparis on_GLvsMeas"
.CommandType = adCmdStoredProc


'cmdCommandButt on1 .
.CommandText = "FIN_spComparis on_GLvsMeas" 'Comparison_GLv sMeas .
CommandType = adCmdStoredProc


Set parNumber = cmdCommandButto n1.CreateParame ter("@SYSTEM_NA ME", adVarChar, adParamInput, 10, "PASLE")

cmdCommandButto n1.Parameters.A ppend parNumber
Cells(iRow, iGeneralLedgerI D37) = cmdCommandButto n1.Parameters(" @NextNr").VALUE


Worksheets("She et1").Select
Worksheets("She et1").Range("B2 ").ClearContent s
Worksheets("She et1").Range("B2 ").Select




End Sub

[debasisdas]

Please check here for connection strings.