BUG: Rebind Fails if Retrieve Fields Are Set at Design Time

MORE INFORMATION

Steps to Reproduce Behavior

1. Start the 16-bit or 32-bit Visual Basic 4.0. If it is already running, on the File menu, click New Project.
2. Add a Data control and a DBGrid Control to the Form1 form. Set the properties of the following controls:

      Control          Default Name        Property            Value
      ------------------------------------------------------------------
   
      Data Control     Data1               DatabaseName       BIBLIO.MDB
                                           RecordSource       Authors
      DBGrid           DBGrid1             DataSource         Data1
   						

3. Right-click on the DBGrid control and click Retrieve Fields on the menu. The Column headers on the DBGrid control contain the names of the Fields.
4. Copy the following code to the Code window of the Form1 form:

         Option Explicit
   
         Private Sub Form_Click()
            'Change the RecordSource to the Titles table
            Data1.RecordSource = "Titles"
            Data1.Refresh
            DBGrid1.Rebind
         End Sub
   						

5. On the Run menu, click Start, or press F5. Click on the form and note that the DBGrid control is cleared of all data.