Dim objCmd As ADODB.Command
    Dim objCn As ADODB.Connection
    Dim objRs As ADODB.Recordset
    
    Set objCn = New ADODB.Connection
    Call objCn.Open("Provider=SQLOLEDB;Server=LOCALHOST;UID=stars;PWD=stars;Database=stars;")
        
    Set objCmd = New ADODB.Command
    
    With objCmd
        .CommandText = "PROC_TransWorkflow"
        .CommandType = adCmdStoredProc
        
        Set .ActiveConnection = objCn
        Call .Parameters.Refresh
        
        .Parameters.Item("@select") = "wtt"
        .Parameters.Item("@user") = "ADWeigert"
        .Parameters.Item("@keyId") = 4
        .Parameters.Item("@durationMinutes") = 0
        
        Set objRs = .Execute()
    End With

    ' Catch the Recordset not being open when it should be
    Debug.Assert objRs.State = adStateOpen
    
    If objRs.State <> adStateClosed Then
        Call objRs.Close
    End If
    
    Set objRs = objCn.Execute("EXEC PROC_TransWorkflow " & _
                              "@durationMinutes=0," & _
                              "@user='ADWeigert'," & _
                              "@keyId=4, @select='wtt'")
    
    ' Catch the Recordset not being open when it should be
    Debug.Assert objRs.State = adStateOpen
    
    If objRs.State <> adStateClosed Then
        Call objRs.Close
    End If
    
    If objCn.State <> adStateClosed Then
        Call objCn.Close
    End If
    
    Set objCmd.ActiveConnection = Nothing
    
    Set objCn = Nothing
    Set objCmd = Nothing
    Set objRs = Nothing

With objCmd
    .NameParameters = true
End With

quote:

---

Originally posted by jsmith8858

did you try the setting the parameters without the @ symbol?

do you get an error message? that would be helpful !

---

quote:

---

Originally posted by MichaelP

Have you tried running profiler to see what is actually being executed?

I think you might need to turn on named Parameters. Like this

With objCmd
    .NameParameters = true
End With

---