BUG: CreateDynaset Holds Lock on Index if No Records Return

MORE INFORMATION

Steps To Reproduce Problem

1. Start Visual Basic 4.0. Form1 is created by default.
2. Open the References dialog (Tools Reference), and add a reference to either DAO 2.5 (16-bit) or DAO 3.0 (32-bit).
3. Add a single Command button to Form1.
4. Add the following code to the form:

      Private Sub Command1_Click()
         Set db = OpenDatabase("BIBLIO.MDB")
         Set rs = db.OpenRecordset("Select * From Authors Where AU_ID > _
                  200", dbOpenDynaset)
      End Sub
   					

5. From the Insert menu, choose Module, and insert a single code module.
6. Add the following code to the module:

      Global rs As Recordset
      Global db As Database
   					

7. Press the F5 key or select Start from the Run menu to run the application. Click on the Command button to open the database, and create a Recordset.
8. Start another instance of Visual Basic. From the Add-Ins menu, choose Data Manager, and start the Data Manager application.
9. In Data Manager, open the same BIBLIO database that was opened in step 4. Open the Authors table and attempt to add a new record. When the update is attempted, Data Manager will give the error mentioned above.