[求助][急求]高校教学管理系统登陆代码的问题!!

我用ACCESS做的高校教学管理系统,运行登陆界面时说"缺少对象"
代码如下,请大家看看哪里出了问题!!!


Private Sub 登陆_Click()

On Error GoTo Err_登陆_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

If IsNull(用户名) = False Then
If DLookup("[密码]", "用户表", "[用户名]=""" & 用户名 & """") = 密码 Then
DoCmd.Close
DoCmd.OpenForm "系统主窗体"
Else
用户名 = ""
密码 = ""
用户名.SetFocus
MsgBox "用户名或密码错误！", vbCritical
End If
End If


Exit_登陆_Click:
Exit Sub

Err_登陆_Click:
MsgBox Err.Description
Resume Exit_登陆_Click


这个系统总体做完了,但是里面还有些小漏洞,不完善的地方,请大虾帮帮忙看一下,帮我修正一下!!!!万分感激!!!

我那个系统860多K,传不上来.........