求大神相助。数据库access用Dlookup的时候提示：你取消了前次的操作

下一个，自己

表：xinxibiao，表里有用户名，密码和用户级别字段名，数据库文件已上传附件。
做登录窗口的时候，用Dlookup的时候提示：你取消了前次的操作。



Private Sub Command37_Click()
Select Case user_grade
Case 1
    flag = "学生"
Case 2
    flag = "管理员"
End Select
If Nz(Len([Forms]![登录]![user])) <> 0 Then

    If DLookup("[密码]", "xinxibiao", "[用户名] = [Forms]![登录]![user]") = [Forms]![登录]![password] Then

        If flag = DLookup("[用户级别]", "xinxibiao", "[用户名] = [Forms]![登录]![user]") Then

            MsgBox "欢迎登陆！", vbInformation, "信息提示"

             Select Case flag

                Case "学生"

                    DoCmd.OpenForm "宿舍服务系统"

                 Case "管理员"

                    DoCmd.OpenForm "宿舍服务系统"

           End Select
        Else

           MsgBox "权限不足！", vbInformation, "信息提示"
       End If
    Else
        MsgBox "用户名或密码不正确！", vbInformation, "信息提示"
    End If
Else
    MsgBox "用户名不能为空！", vbInformation, "信息提示"
End If


End Sub

Renco

If DLookup("[密码]", "xinxibiao", "[用户名] = '" & [Forms]![登录]![user] & "'") = [Forms]![登录]![password] Then