ADT/ODE: End Statement in Run-Time Application Causes Error

MORE INFORMATION

Steps to Reproduce Behavior

1. Start Microsoft Access and create a new database named RTError.mdb.
2. Create a module and type the following procedure:

         Sub CauseError()
            On Error GoTo Err_Handler
            MsgBox "Click OK to cause a run-time error"
            End
            Exit Sub
            Err_Handler:
            MsgBox Error$
         End Sub
   					

3. Save the module as Module1, and then close it.
4. Create a new form not based on any table or query in Design view:

         Form: Form1
         ------------------------
         Caption: Startup Form
   
         Command button:
            Name: Command0
            Caption: Cause Error
            OnClick: =CauseError()
   					

5. Save the form as Form1, and then close it.
6. On the Tools menu, click Startup.
7. In the Startup dialog box, select Form1 in the Display Form box, and then click OK.
8. Start the Setup Wizard and create setup files that contain RTError.mdb, the Microsoft Access Run-Time Version, and the Workgroup Administrator.
9. Install the run-time application and start it. When Form1 opens, click the Cause Error button. Note that you receive the error message, and then your application quits.