BUG: "No Corresponding BEGIN TRANSACTION" Error When COMMIT TRANSACTION Is Run

Steps to Reproduce the Behavior

1. Open SQL Query Analyzer.
2. In the Northwind sample database, run the following SQL script to create a recursive stored procedure:

   CREATE PROCEDURE RecursionTest @Param Int As 
   Set @Param = @Param + 1 
   If @Param < 3 
         Exec RecursionTest @Param 

3. Create a new Standard EXE project in Visual Basic 6.0. By default, Form1 is created.
4. On the Project menu, click
   References.
5. In the References list, double-click
   Microsoft ActiveX Data Objects 2.7 Library, and then click
   OK.
6. In the toolbox, double-click CommandButtonto add the CommandButton to the Form. By default, Command1 is created.
7. Double-click Button1 to add code for the click event of Command1.
8. Replace the existing code in the Command1_Click event with the following code:

   Private Sub Command1_Click()
      
      ' Connect to SQL Server
      Dim cn As ADODB.Connection
      Set cn = New ADODB.Connection
      cn.Open "Provider=SQLOLEDB; Data Source=(local);Initial Catalog=Northwind;Integrated Security=SSPI"
      
      ' Begin a Transaction
      cn.Execute "BEGIN TRANSACTION", , adExecuteNoRecords
      
      ' Create a Command to execute Stored Procedure
      Dim cmd As ADODB.Command
      Set cmd = New ADODB.Command
      With cmd
         strSQL = "{ call RecursionTest (?)}"
         .CommandType = adCmdText
         .CommandText = strSQL
         Set .ActiveConnection = cn
         .Prepared = True
         .Parameters(0) = -3
         
         ' Execute the Stored Procedure
         .Execute
      End With
      
      Set cmd = Nothing
      
      ' Commit the Transaction
      cn.Execute "COMMIT TRANSACTION", , adExecuteNoRecords
      cn.Close
      Set cn = Nothing
   End Sub
   

9. On the Run menu, click
   Start to run the application.
10. Click Command1.