At first glance, it looks like you're entering an error trap without an error. iow,
forgetting the Exit Sub before reporting the error.
Private Sub Form_Load()
On Error GoTo ErrorTrap
Debug.Print 1 / 0
Exit Sub 'Remove this and you'll get your error 0
MsgBox "Error " & Err.Number
Ken Halter - MS-MVP-VB - http://www.yqcomputer.com/
Please keep it in the groups..