BUG: Cannot Cancel Execution of Command/Recordset Through the Shape Provider (269577)

MORE INFORMATION

Steps to Reproduce Behavior

1. Start Visual Basic and create a Standard EXE project. Form1 is created by default.
2. On the Project menu, click to select References, and set a reference to the Microsoft ActiveX Data Objects 2.5 Library.
3. Paste in the following code into the Form Load Sub:

       Dim conn As New Connection
       Dim rs As New Recordset
   
       conn.Open "Provider=MSDatashape" & _
                 ";Data Provider=sqloledb" & _
                 ";Data Source=<server_name>" & _
                 ";User ID=<uid>;Password=<pwd>;"
       
       'Using No Shape Provider works
       conn.Open "Provider=sqloledb" & _
                 ";Data Source=<server_name>" & _
                 ";User ID=<uid>;Password=<pwd>;"
   
       Debug.Print
       Debug.Print Timer
       rs.Open "select * from sysobjects, syscomments, sysindexes", conn, adOpenStatic, adLockOptimistic, adAsyncExecute
       Debug.Print "Attempting to Cancel " & Timer
       rs.Cancel
       Debug.Print "Cancel finally executed" & Timer
       Debug.Print "state: ", rs.State
       Debug.Print "observe how long it takes to carry out the Cancel"
   					

4. Save and run the project. Note how long it takes to move beyond the Cancel call.NOTE: The query may never cancel due to low virtual memory that may cause the application to stop responding.