PRB: Error 3219 When Updating Record Set Created w/ Distinct

MORE INFORMATION

Steps to Reproduce Problem

1. Start Visual Basic or from the File menu, choose Open Project(ALT, F, O) if Visual Basic is already running. Form1 is created by default.
2. Add a data control, two command buttons, and one text box to Form1.
3. Using the following table as a guide, set the properties of the controls you added in step 2.

      Control Name   Property       New Value                     Comment
      ------------------------------------------------------------------------
      Command1       Caption        "Set Up Distinct Predicate"
      Command2       Caption        "Press for Update"
      Data1          DatabaseName   BIBLIO.MDB                    Provide the
                                                                  full path to
                                                                  this file,
                                                                  which should
                                                                  be in C:\VB
      Data1          RecordSource   Authors
      Text1          DataSource     Data1
      Text1          DataField      Author
   
   						

4. Add the following code to Command1 click event procedure:

      Sub Command1_Click ()
         '* Enter the following two lines of code as one, single line:
         data1.RecordSource = "Select DISTINCT Author From authors
            where author > 'a'"
         data1.Refresh
      End Sub
   
   						

5. Add the following code to Command2 click event procedure:

      Sub Command2_Click ()
         data1.Recordset.Update
      End Sub
   
   						

6. From the Run menu, choose Start (ALT, R, S), or press the F5 key to run the program. Click the Command1 button to set up the Distinct predicate. Delete the zero in "Arnson, Robert, 1970." Then click the Command2 button. This should result in the 3219 error "Can't perform operation, it is illegal."