PRB: Rollback Causes DAO Recordset Editmode To Be Set Back to 0

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new Standard Exe VB project. Form1 is created by default.
2. Check the reference to the DAO 3.5 object library.
3. Add a new form, and then add a CommandButton to the form.
4. Paste the code below into the CommandButton Click event.
5. Change the OpenDatabase method so that it points to the Northwinds database on your local machine, and then run the project:

         Private Sub Command1_Click()
   
          Dim rs As Recordset
          Dim db As Database
   
          Set db = OpenDatabase("c:\mikework\dbs\nwind.mdb", 0, False, "")
   
          Set rs = db.OpenRecordset("SELECT ContactName FROM Customers", _
          dbOpenDynaset, 0, dbPessimistic)
   
          rs.Edit     'This sets the editmode to 1.
          rs!ContactName = rs!ContactName & "H"
          Debug.Print rs.EditMode  'This will be 1.
          'rs.Update   'Uncomment this line for workaround.
   
          'Start the transaction.
          BeginTrans
             'The processing that occurs in this transaction is unrelated
             'to the above recordset.
          Rollback
   
          Debug.Print rs.EditMode  'Editmode is now 0.
          rs.Update  '<<Error will occur on this line.
   
          rs.Close
          db.Close
   
         End Sub