一个关于用户权限的问题，急！！！！！！！！

Question

设定用户"q"的权限，无论设定与否，点击要访问的Label，都会出现对话框“没有权限”
    代码：
         Private Sub Label2_Click()
               If CurPriv.PrivUser = 1 Then
                  user.Show
                  Unload Me
               Else
                  MsgBox "没有权限"
               End If
          End Sub      若只写   
          Private Sub Label2_Click()
                  user.Show
                  Unload Me
          End Sub
     则无论权限设定与否，窗体都会自动显示
     其中权限设定时通过check的选择实现的，选择DataList中的用户名，然后再选择几个check定权限，点击返回后，可以保存权限

Answer 1

窗体启动的时候，你对  CurPriv.PrivUser  赋了值了吗？？如果没有，缺省都是0

Answer 2

在 If CurPriv.PrivUser = 1 Then 设定一个断点，看看运行到这里的时候 CurPriv.PrivUser 的值是多少？！