i am running the below VBA code which tries to connect to SQL SERVER then execute a stored procedure which returns results, however i got this error



Runtime error: Procedure or function 'sp_get_transactions_by_status' EXPECTS parameter '@transaction_status', which is not supplied




Dim conn As New ADODB.Connection
Dim myRecSet As New ADODB.Recordset [DECLARING ]
Dim str As String
Dim ParamStorProc As String

ParamStorProc = "@Transaction_status"

.With conn
.Provider = "SQLOLEDB" [This opens SQL CONNECTION]
.Properties("Prompt") = adPromptAlways
.ConnectionString = "Data Source=\SQLEXPRESS; " & _
"Initial Catalog=test;"
On Error Resume Next
.Open
Debug.Print conn.ConnectionString
If Err.Number <> 0 Then
MsgBox ("You have elected to cancel this request"), vbOKOnly [IF A BOX ON THE FORM IS EMPTY THIS ERROR MESSAGE IS SHOWN]
Exit Sub
End If
On Error GoTo 0
End With

If txtID = "" Then [If the text box on form is empty critical message]
MsgBox ("You need to enter a valid Org_ID"), vbCritical

Else
str = "exec sp_get_transactions_by_status" [EXECUTES STORED PROCEDURE]

myRecSet.Open str, conn, ParamStorProc
If Not myRecSet.EOF Then
Me.lstID.Column = myRecSet.GetRows


End If
End If
End SuB