Private Sub cmdOK_Click()
On Error GoTo errh:
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Set rs = cn.Execute("SELECT UserName , Password  FROM 超级用户 ")
    If rs.EOF Then
        rs.Close
        Set rs = Nothing
        Unload Me
        Load FrmMain
        Exit Sub
    End If
    rs.MoveFirst
    Dim i As Integer
    '校验是否为超级用户
    Do
        If rs.Fields("UserName") = txtUserName.Text Then
            If rs.Fields("Password") = txtPassword.Text Then
                UserType = True
                LoginSucceeded = True
                rs.Close
                If txtPassword.Text = "Admin" Then IsAdmin = True
                Unload Me
                Load FrmMain
                Exit Sub
                Exit Do
            End If
        End If
        rs.MoveNext
    Loop Until rs.EOF
    '校验是否为普通用户
    Set rs = cn.Execute("SELECT 学号 FROM 学生 WHERE 学号 =" & "'" & txtPassword.Text & "'")
    If rs.EOF Then
        MsgBox "无效密码或用户名请重试!", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    Else
        rs.Close
        UserType = False
        LoginSucceeded = True
        Unload Me
        Load FrmMain
    End If
    Exit Sub
errh:
    MsgBox Err.Description
End Sub
-----------------------------------------------------------------------
假如以上代码是登陆代码，如果登陆的是amin管理员，那么主界面的cmd1按钮就被激活（cmd1.enable=true）,否则不被激活。
UserType变量怎样定义，在登陆窗口定义？公用？  在主界面的from-load（）里可以直接使用嘛？

以下为登录界面
Select Case DataCombo1.Text
Case "系统管理员"
    UserType = 0
Case "一般管理员"
    UserType = 1
Case "资料录入员"
    UserType = 2
Case "报警值班员"
    UserType = 3
Case Else
End Select
With FrmMain        '主界面
    .UserName = user
    .UserType = UserType
End With
Load FrmMain
FrmMain.Show
Unload Me
Exit Sub


以下为主界面FrmMain
option explicit
Public UserType As Interger
Public UserName As Interger

Private Sub Form_Load()
select case UserType
……
cmd1.enable=true
……
end select
End Sub

[[it] 本帖最后由 超级隐士 于 2008-5-20 16:24 编辑 [/it]]

UserType不是已经定义在frmMain中了吗？

我不记得CommandButton有什么enable属性，我就知道enabled。