BUG: WillChangeRecordset Event Not Executed

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a Standard EXE Project in Visual Basic.
2. From Project menu, choose Components and then select "Microsoft ActiveX Data Objects Library".
3. Add a TextBox control and Command Button to the form.
4. Add the following code to the General Declarations of the form:
   
   Note You must change UID=<username> and PWD=<strong password> to the correct values before you run this code. Make sure that UID has the appropriate permissions to perform this operation.on the database.

      Dim WithEvents rst As ADODB.Recordset
      Dim cn As New ADODB.Connection
   
      Private Sub Form_Load()
      With cn
      .CursorLocation = adUseClient
      .Open "dsn=pubs;uid=<username>;pwd=<strong password>;"
      End With
   
      Set rst = cn.Execute("Select * from Authors")   
      Set Text1.DataSource = rst
      Text1.DataField = "au_lname"
   
      End Sub
   
      Private Sub rst_WillChangeRecordset(ByVal adReason As _
        ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, _
        ByVal pRecordset As ADODB.Recordset)
        Debug.Print "ADO WillChangeRecordset"
   
      End Sub
   
      Private Sub Command1_Click()
        Debug.Print "About to Close"
   
        rst.Close
   
        Debug.Print "Close complete"
        Unload Me
   
      End Sub
   					

• Press the F5 key to run the application and then click the Command Button. Notice that in the Debug Window the "ADO WillChangeRecordset" is not printed after "About to Close" prints.