I prefer my simple routine for error trapping...
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open
MsgBox "testing"
Exit_Form_Open:
Exit Sub
Err_Form_Open:
MsgBox Err.Number & " - " & Err.Description, vbCritical, "Form_Open()"
Resume Exit_Form_Open
End...