PRB: WillChangeRecord Event Does Not Fire on Update

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new Visual Basic Project.
2. Set a Project Reference to the Microsoft ActiveX Data Objects Library.
3. Select the default form to open the Code window.
4. Delete the Form_Load code.
5. Copy and paste the following into the Code window:

      Dim oCn As Connection
      Dim WithEvents oRs As Recordset
      Dim oCm As Command
   
      Private Sub Form_Load()
   
      Set oCn = New Connection
      Set oRs = New Recordset
      Set oCm = New Command
   
      With oCn
         .ConnectionString = "PROVIDER=SQLOLEDB;" & _
                             "DATA SOURCE=servername;" & _
                             "Initial Catalog=pubs;" & _
                             "User Id=username;Password=password"
         .Open
      End With
   
      With oCm
         Set .ActiveConnection = oCn
         .CommandText = "select * from authors"
         .CommandType = adCmdText
      End With
   
      With oRs
         Set .ActiveConnection = oCn
         .CursorLocation = adUseClient
         .CursorType = adOpenStatic
         .LockType = adLockBatchOptimistic
         .Open oCm
      End With
   
      oRs(1) = "something new"
      oRs.Update
      oRs.UpdateBatch
   
      End Sub
   
      Private Sub oRs_WillChangeRecord _
         (ByVal adReason As ADODB.EventReasonEnum, _
         ByVal cRecords As Long, _
         adStatus As ADODB.EventStatusEnum, _
         ByVal pRecordset As ADODB.Recordset)
   
         MsgBox "oRs_WillChangeRecord"
      End Sub

6. Modify the connection string to point to your server.Step through the program. The WillChangeRecord event is fired on oRs(1) = "something new" and oRs.UpdateBatch, but not on oRS.Update.