VB and SQLserver做系统 判定用户权限问题 在线等 高手速度来 只求

在登录界面判断用户权限。（用户权限表 成员： 职工号  权限）权限等级设为1,2,3,4,5,6
在登录界面添加ADO控件，用职工号  密码进行登录时，对当前登录的职工号进行选线判定。。代码如下：
Dim n As Integer       'n为限制登陆次数的变量
Private Sub Command1_Click()
Dim a1 As String
If Trim(Text1.Text) = "" Then
MsgBox "请输入用户名", vbExclamation, "注意"
Text1.SetFocus
Else
On Error GoTo Errorhandle
mycon.ConnectionString = "Driver={SQL Server};Server=ASUS-PC;UID=" & Trim(Text1.Text) & ";pwd =" & Trim(Text2.Text) & ";Datebase=研究所管理"
mycon.Open
  Form20.Text1.Text = Form2.Text1.Text
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 系统用户角色表 where 职工号='" & Trim(Text1.Text) & "'  "  ‘这里是对当前用户的权限进行查找    输出在text3中
Adodc1.Refresh
Select Case Text3.Text
 Case "1"
    Form20.Command2.Enabled = False
    Form20.Command3.Enabled = False
    Form20.Command4.Enabled = False
    Form20.Command5.Enabled = False
    Form20.Command6.Enabled = False
  Case "2"
    Form20.Command2.Enabled = False
    Form20.Command3.Enabled = False
    Form20.Command5.Enabled = False
    Form20.Command6.Enabled = False
  Case "3"
    Form20.Command2.Enabled = False
    Form20.Command3.Enabled = False
    Form20.Command4.Enabled = False
    Form20.Command5.Enabled = False
  Case "4"
    Form20.Command1.Enabled = False
    Form20.Command2.Enabled = False
    Form20.Command3.Enabled = False
    Form20.Command6.Enabled = False
   Case "5"
    Form20.Command2.Enabled = False
  Case "6"
    Form20.Command1.Enabled = True
    Form20.Command2.Enabled = True
    Form20.Command3.Enabled = True
    Form20.Command4.Enabled = True
    Form20.Command5.Enabled = True
    Form20.Command6.Enabled = True
End Select
Unload Me
Form20.Show
现在查找权限是可以的。但是command的enabled还是不变。 请高手给解答