PRB: Compatibility Layer Error: Can't open any more tables

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add a command button (Command1) and a Label (Label1) to Form1.
3. Place the following code in the Command1 Click event:

      Sub Command1_Click ()
         Dim i  As Integer
         Dim db As database
         Dim ss As snapshot
   
         On Error GoTo Command1_ClickError
   
         Set db = OpenDatabase("c:\vb\biblio.mdb")
         BeginTrans
   
         For i = 1 To 500
            Label1.Caption = i
            Label1.Refresh
            Set ss = db.CreateSnapshot("SELECT * FROM Authors")
            '
            ' Code to manipulate the Snapshot records would be here ...
            '
            ss.Close
            Set ss = Nothing
         Next i
   
         Rollback
         db.Close
   
         Label1.Caption = Trim(Label1.Caption) & " Done!"
         Label1.Refresh
      Exit Sub
   
      Command1_ClickError:
         If Err <> 0 Then
            ' Enter the following two lines as one, single line:
            MsgBox "Error: " & Trim(CStr(Err)) & Chr$(10) & Chr$(13)
                 & "Error: " & Trim(Error$)
            Label1.Caption = Trim(Label1.Caption) & " FAIL!"
            Label1.Refresh
            Rollback
         End If
         Exit Sub
      End Sub
   						

4. Run the program. The application will run through 332 iterations of creating and closing the snapshot before generating the error.

Code to Avoid the Error

   Set ss = db.CreateSnapshot("SELECT * FROM Authors")
   For i = 1 To 500
      Label1.Caption = i
      Label1.Refresh
      '
      ' Code to manipulate the Snapshot records would be here ...
      '
   Next i
   ss.Close
   Set ss = Nothing