FIX: AddNew Method Gives Error: Illegal Function Call

   Form1.AutoRedraw = True
   Data1.DatabaseName = "DB.MDB"
   Data1.RecordSource = "SELECT * FROM Table1 WHERE Field1 = 'Record1'"
   Data1.Refresh
   Data1.Recordset.MoveLast
   Print "ReadOnly "; Data1.ReadOnly
   Print "Options "; Data1.Options
   Print "Updatable "; Data1.Recordset.Updatable
   Data1.Recordset.AddNew
				

MORE INFORMATION

A problem with the Microsoft Access database engine can cause an "Illegal Function Call" error when adding a record to a database. This error should not occur. This problem is not related to the data control and can also occur when using methods from the Professional Edition of Visual Basic version 3.0.

Steps to Reproduce Problem

1. Use the Data Manager to create a database with these characteristics:

      DATABASE: DB.MDB
      TABLES:   Table1
      FIELDS:   Field1 in Table1
      INDEXES:  Index1 on Field1 not Unique and not Primary
   						

2. Add two records to Table1 with values of "Record1" and "Record2" for Field1.
3. Start a new project in Visual Basic. Form1 is created by default.
4. Add a data control (Date1) and a command button (Command1) to the form.
5. Add the following code to the command button's click event:

      Sub Command1_Click ()
         Form1.AutoRedraw = True
         Data1.DatabaseName = "DB.MDB"
         Data1.RecordSource = "SELECT * FROM Table1 WHERE Field1 = 'Record1'"
         Data1.Refresh
         Print "ReadOnly "; Data1.ReadOnly
         Print "Options "; Data1.Options
         Print "Updatable "; Data1.Recordset.Updatable
         Data1.Recordset.AddNew
      End Sub
   						

6. Run the code and click the Command1 button. You should receive the "Illegal function call" error on the on the Addnew line.