ACC97: Fatal Error When You Use Code to Open Non-Default Instance of Form

MORE INFORMATION

Steps to Reproduce Problem

1. Create a new database in Access 97.
2. Create a new, unbound form in design view.
3. Add an unbound ListBox to the form.
   
   NOTE: This also fails with a ComboBox. To reproduce, follow the same steps, adding a ComboBox instead of a ListBox.
4. Type ListMDBs for the RowSourceType of the ListBox.
5. Type the following code in the form's module:

   Function ListMDBs(fld As Control, id As Variant, row As Variant, _
                  col As Variant, code As Variant) As Variant
   
            Static dbs(127) As String, Entries As Integer
            Dim ReturnVal As Variant
   
            ReturnVal = Null
   
            Select Case code
   
               Case acLBInitialize         ' Initialize.
                  Entries = 0
                  dbs(Entries) = Dir("*.MDB")
   
                  Do Until dbs(Entries) = "" Or Entries >= 127
                      Entries = Entries + 1
                      dbs(Entries) = Dir
                  Loop
                  ReturnVal = Entries
   
               Case acLBOpen               ' Open.
                  ReturnVal = Timer     ' Generate unique ID for control.
               Case acLBGetRowCount        ' Get number of rows.
                  ReturnVal = Entries
               Case acLBGetColumnCount     ' Get number of columns.
                  ReturnVal = 1
               Case acLBGetColumnWidth     ' Column width.
                  ReturnVal = -1         ' -1 forces use of default width.
               Case acLBGetValue           ' Get data.
                  ReturnVal = dbs(row)
               Case acLBEnd                ' End.
                  Erase dbs
            End Select
   
            ListMDBs = ReturnVal
   
         End Function
   						

   NOTE: You can find this code sample in Access Help by searching the index for the RowSourceType property. Select the topic "Create a list box or combo box that gets its rows from a function", and then click the button in step 1.
   
   When the form opens, it populates the ListBox with a list of all Access databases in the current directory.
6. Close and save the form as Form1.
7. Create another unbound form in design view.
8. Add one command button to the this form and name it Command0.
9. Add the following code to the form's module:

   Dim NewFrm As Form
   Private Sub Command0_Click()
        Set NewFrm = New Form_Form1
        NewFrm.SetFocus
   End Sub
   					

10. Close and save the form as Form2.
11. Open Form2 and click the command button. Note that a fatal error as described in the "Symptoms" section of this article occurs in Msaccess.exe.