PRB: Dynaset Loses Contents After Transaction Rollback

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add two list boxes (List1 and List2) and a command button (Command1) to Form1.
3. Add the following code to the Command1_Click event:

      Sub Command1_Click ()
         Dim db As database
         Dim ds As Dynaset
         Set db = OpenDatabase("Biblio.mdb")
         Set ds = db.CreateDynaset("authors")
   
         'This code populates the listbox with the contents of the Dynaset.
         BeginTrans
            While Not ds.EOF
               list1.AddItem ds(0)
               ds.MoveNext
            Wend
         Rollback
   
         'This code reports only one record in the dynaset.
         ds.MoveFirst
         While Not ds.EOF
            list2.AddItem ds(0)
            ds.MoveNext
         Wend
      End Sub
   						

4. Run the application or press the F5 key. Click the Command1 button. The first list box is populated correctly but the second contains only a single record.