PRB: Invalid Database Object after Rollback without BeginTrans

MORE INFORMATION

Steps to Reproduce Behavior Using Database Object Variables

1. Start Visual Basic or begin a New Project. Form1 is created by default.
2. Add a command button (Command1) to Form1. Enter the following code:

      Sub Command1_Click ()
         Dim db As database
         Dim ds As dynaset
         Set db = OpenDatabase("c:\vb3\biblio.mdb")
         Set ds = db.CreateDynaset("authors")
         On Error Resume Next
         ' WORKAROUND: Add the following statement here:   BeginTrans
         Rollback
         Print Error$
         On Error GoTo 0
      End Sub
   						

Steps to Reproduce Behavior using Text Control Bound to Data Control

1. Start Visual Basic or begin a New Project. Form1 is created by default.
2. Add a data control (Data1) to Form1, and give Data1 these properties:

      DatabaseName = C:\VB\BIBLIO.MDB   ' This database shipped with VB
      RecordSource = Authors            ' Use the Authors Table.
   						

3. Add a text box (Text1) to Form1, and give Text1 these properties:

      DataSource = Data1
      DataField = Au_ID
   						

4. Add a command button (Command1) to Form1. Enter the following code:

      Sub Command1_Click ()
         On Error Resume Next
         Rollback
         Print Error$
         ' WORKAROUND is to add the following statement here:  Data1.Refresh
      End Sub
   						

5. Start the program by pressing the F5 key. Click the Command1 button. The following correct error is trapped by the error handler:

      Commit or Rollback without BeginTrans
   						

6. Now click the data control arrow to move to the next record. This causes the following error:
   Invalid Database Object