access数据库中系统管理表 字段：用户名、密码、权限
一个登陆窗体 一个主窗体
想设定  登陆成功后开始判定权限
权限=admin时  让主窗体菜单中 删除用户项 可见  否则不可
权限=guest时  主窗体菜单中 添加用户项 删除用户项不能用
一直无法实现   高手帮帮我  谢谢

Option Explicit
Dim cnt As Integer                     '记录确定次数

Private Sub Command1_Click()        '“确定”按钮控件的作用是检查输入的数据是否与数据库中的数据一致。
    Dim sql As String
    Dim rs_login As New ADODB.Recordset
   
    If Trim(Text1.Text) = "" Then   '判断输入的用户名是否为空
        MsgBox "用户名不能为空！", vbOKOnly + vbExclamation, "提示"
        Text1.SetFocus
        cnt = cnt + 1
    Else
        sql = "select * from 系统管理表 where 用户名='" & Text1.Text & "'"
        rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
        If rs_login.EOF = True Then
            MsgBox "没有这个用户！", vbOKOnly + vbExclamation, "提示"
            Text1.SetFocus
            cnt = cnt + 1
        Else                        '检查密码是否正确
            If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then
                userID = Text1.Text
                userpow = rs_login.Fields(2)
                rs_login.Close
                Unload Me
                主窗口.Show
            Else
                MsgBox "密码不正确！", vbOKOnly + vbExclamation, "提示"
                Text2.SetFocus
                cnt = cnt + 1
            End If
        End If
    End If
    If cnt = 3 Then '判定错误三次退出
   MsgBox "对不起你无权使用", vbOKOnly + vbCritical, "错误"
        Unload Me
End If
Exit Sub
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
    Dim connectionstring As String
    connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & "data source=数据库.mdb"
    conn.Open connectionstring
    cnt = 0
End Sub

创建一个通用模块,在通用模块中定义一个通用权限变量,然后进主窗口的时候就判断它的值来决定哪个可见哪些不可见..

还是不会啊，谁举个例子我看下

你ACCESS里面user表中不是有个purview字段吗,这里面填admin和guest
在通用模块中写
public temppurview as string
''在主窗口中
''''temppurview的值是在用户登陆时赋值的
private sub form_load()
   if temppurview=admin
       菜单.visible=true
    elseif tempurview=guest
        菜单.visible=false
   endif
end sub

其实我就想问怎么赋值，初学很多都不懂

得把它设置成超级用户