RDO RowsAffected Property Does Not Return Correct Value

MORE INFORMATION

Steps to Reproduce Behavior

1. Run the following stored procedure against the Pubs database in SQL Server:

         DROP PROCEDURE RowsAffectedTest
         go
   
         CREATE PROCEDURE RowsAffectedTest
   
         AS
   
         UPDATE AUTHORS SET ZIP = '99998'
         RETURN @@ROWCOUNT
   
         go
   						

1. Start a new Visual Basic Standard EXE Project. Form1 is created by default. Add a reference to Microsoft Remote Data Object 2.0.
2. Add a CommandButton to the default form.
3. Add the following code to the CommandButton's click event. You will need to modify the connect string here to point to your SQL Server:

         Dim SQL As String
         Dim cn As rdoConnection
         Dim qd As rdoQuery
         Dim numberchanged As Integer
   
         Set cn = rdoEnvironments(0).OpenConnection( _
         dsname:="", _
         Prompt:=rdDriverNoPrompt, _
         Connect:="driver={SQL " & _
          "server};server=YourServerName;uid=UserName;pwd=StrongPassword;database=pubs")
   
         'Comment out this line when un-commenting the other
         SQL = "{Call RowsAffectedTest}"
   
         'Uncomment this line to get the return value
         'SQL = "{? = Call RowsAffectedTest}"
   
         Set qd = cn.CreateQuery("MyTest", SQL)
   
         qd.Execute
   
         Debug.Print "RDO RowsAffected Property Value: " & qd.RowsAffected
   
         'Uncomment this line to see the returned value
         'Debug.Print "Returned Value From SP: " & qd(0).Value
   						

4. Run the code and look at the RDO RowsAffected value. Note that it does not return the correct value.