[AccessD] Unknown Jet Error

Why does this code cause an error? Compact and repair is of no use.

Private Sub Form_Open(Cancel As Integer)
    Stop
    DoCmd.OpenForm "frm Plant Pressures Scatter"
    DoCmd.Maximize
    Me!chtPlantChart.SetFocus
    Dim frm As Form, ctl As Control
    Dim varItm As Variant, intCnt As Integer
    Dim MaxY1 As Single, MaxY2 As Single, MajorUnitY1 As Single 
    Dim MinorUnitY1 As Single, MajorUnitY2 As Single, MinorUnitY2 As Single
    DoCmd.SetWarnings Off
End Sub. 

Chester Kaup
Engineering Technician
Kinder Morgan CO2 Company, LLP
Office (432) 688-3797
FAX (432) 688-3799

 
No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced.