anybody can help me .. I can not trap the error number .. for this error message : "The Microsoft jet Database Engine could not find the object "MyData". Make sure the object exist and that you spell it's name and the path name correctly" .. I try to use this following command :

Private Sub Form_Load()
On Error GoTo Errorload
workingdir = CheckWorkDir()
MyData.DatabaseName = workingdir
Exit sub
Errorload:
msgbox err.number
End Sub