PRB: Stored Procedures with a Return Statement Can Cause Errors

MORE INFORMATION

Steps to Reproduce Behavior

1. Run the following SQL Server script on SQL Server (make sure it is run from the Pubs database):
   

         if exists (select * from sysobjects
         where id = object_id('dbo.test') and sysstat & 0xf = 4)
            drop procedure dbo.test
         GO
   
         CREATE PROCEDURE test AS
            select * from authors
            return(0)
         GO
     
   						

2. Start the Enterprise edition Visual Basic 5.0. Create a Standard EXE Project. Form1 is created by default.
3. Add a Project reference to "Microsoft Remote Data Objects 2.0."
4. Add the following code to the default form's Load Method:
   

         Dim en As rdoEnvironment
         Dim cn As rdoConnection
         Dim rs1 As rdoResultset
         Dim rs2 As rdoResultset
         Dim sql As String
   
         Set en = rdoEngine.rdoEnvironments(0)
         en.CursorDriver = rdUseOdbc
   
         Set cn = en.OpenConnection( _
         dsName:="", _
         Prompt:=rdDriverNoPrompt, _
         Connect:="DRIVER={SQL SERVER};" _
         & "SERVER=<server_name>;UID=<user_id>;PWD=<pwd>;DATABASE=<db_name>")
   
         sql = "Exec test"
         Set rs1 = cn.OpenResultset(sql, rdOpenStatic, rdConcurRowVer)
         Set rs2 = cn.OpenResultset(sql, rdOpenStatic, rdConcurRowVer)