I'm having the hardest time trying to run VBA to execute a stored procedure that returns a value.

Here is the code execution that runs fine in SQL Server:
DECLARE @return_value int, @newWOID int EXEC @return_value = [dbo].[spAddNewWorkOrder] @takenBy = 99, @newWOID = @newWOID OUTPUT

This is the ExecuteScalar that I'm using:

Public Function ExecScalar(sSQL As String, Optional strConnString As String = "") As Variant



    ' Find out if the attempt to connect worked.
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    
    Set cnn = New ADODB.Connection
    
    cnn.Open
    If cnn.State = adStateOpen Then
        'Dim rs As New ADODB.Recordset
        Set rs = cnn.Execute(sSQL)
        If Not rs.EOF Then
            ExecScalar = rs(0) 'This procedure assumes that in an execscalar situation, the stored procedure is only returning one value in one field
        Else
            ExecScalar = 0
        End If
        rs.Close
        Set rs = Nothing
    Else
        MsgBox "ExecScalar Error;" & sSQL
    End If



    ' Close the connection.
    'cnn.Close
End Function


After the line "If not rs.EOF then" the procedure kicks back out to where it's called, and the return value is 0. Am I doing something wrong in how I call the stored procedure from Access?