VB6 ADO - Return Parameters

I'm trying to retrieve a return value from a stored procedure that is executed through ADO. Nothing is being returned from the stored procedure in prmByRoyalty2.value.

A similiar procedure written in RDO works.

Any help will be appreciated!

VB CODE USED TO EXECUTE STORED PROCEDURE
   Dim cnn1 As ADODB.Connection
   Dim cmdByRoyalty As ADODB.Command
   
   Dim prmByRoyalty As ADODB.Parameter
   Dim prmByRoyalty1 As ADODB.Parameter
   Dim prmByRoyalty2 As ADODB.Parameter
   
   Dim rstByRoyalty As ADODB.Recordset
   Dim intRoyalty As Integer
   Dim strAuthorID As String
   Dim strCnn As String
   ' Define a command object for a stored procedure.
   Set cnn1 = New ADODB.Connection
   strCnn = "uid=jxgong;pwd=;dsn=cargo;"
   cnn1.Open strCnn
   Set cmdByRoyalty = New ADODB.Command
   Set cmdByRoyalty.ActiveConnection = cnn1
   cmdByRoyalty.CommandText = "{? = Call ValidateAssociate (?,?)}"
   cmdByRoyalty.CommandType = adCmdText
   cmdByRoyalty.CommandTimeout = 15
   
   ' Define the stored procedure's input parameter.
   Set prmByRoyalty = New ADODB.Parameter
   prmByRoyalty.Type = adChar
   prmByRoyalty.Size = 6
   prmByRoyalty.Direction = adParamInput
   prmByRoyalty.Value = "jxgong"
   
   ' Define the stored procedure's input parameter.
   Set prmByRoyalty1 = New ADODB.Parameter
   prmByRoyalty1.Type = adChar
   prmByRoyalty1.Size = 6
   prmByRoyalty1.Direction = adParamInput
   prmByRoyalty1.Value = "jxgong"
   
   ' Define the stored procedure's input parameter.
   Set prmByRoyalty2 = New ADODB.Parameter
   prmByRoyalty2.Type = adInteger
   prmByRoyalty2.Size = 1
   prmByRoyalty2.Direction = adParamReturnValue
   
   cmdByRoyalty.Parameters.Append prmByRoyalty2
   cmdByRoyalty.Parameters.Append prmByRoyalty
   cmdByRoyalty.Parameters.Append prmByRoyalty1
   
   ' Create a recordset by executing the command.
   Set rstByRoyalty = New Recordset
   rstByRoyalty.Open Source:=cmdByRoyalty
   
   debug.print prmByRoyalty2.value
   
   cnn1.Close

STORED PROCEDURE:

IF EXISTS(SELECT * FROM POLICY WHERE POLICYNBR = 'JC00000')
   RETURN 1
ELSE
   RETURN 0