vb求高手帮忙！

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim user_rights As String

Set conn = New ADODB.Connection
conn.ConnectionString = "provider=msdasql;driver={sql server};server=localhost;uid=sa;pwd=111;database=实验室系统"
conn.CursorLocation = adUseServer
conn.Open

conn.BeginTrans

Set rst = New ADODB.Recordset
Set rst.ActiveConnection = conn
rst.CursorType = adOpenDynamic
rst.LockType = adLockPessimistic
rst.Open "select * from 用户信息表 where 用户名 = '" & MIS.Text1.Text & "'"（mis为登录界面）
If rst.RecordCount > 0 Then
  user_rights = Trim(rst.Fields("权限"))
  

If InStr(user_rights, "教师档案") Then
   教师档案.Enabled = True
Else: 教师档案.Enabled = False
End If

If InStr(user_rights, "学生档案") Then
   学生档案.Enabled = True
Else: 学生档案.Enabled = False
End If

If InStr(user_rights, "查询打印") Then
   查询打印.Enabled = True
Else: 查询打印.Enabled = False
End If

If InStr(user_rights, "设备查询") Then
   设备查询.Enabled = True
Else: 设备查询.Enabled = False
End If

If InStr(user_rights, "报废查询") Then
   报废查询.Enabled = True
Else: 报废查询.Enabled = False
End If

If InStr(user_rights, "查询设置") Then
   查询设置.Enabled = True
Else: 查询设置.Enabled = False
End If

If InStr(user_rights, "课表查询") Then
   课表查询.Enabled = True
Else: 课表查询.Enabled = False
End If

If InStr(user_rights, "成绩管理") Then
   成绩管理.Enabled = True
Else: 成绩管理.Enabled = False
End If

If InStr(user_rights, "打印查询") Then
   打印查询.Enabled = True
Else: 打印查询.Enabled = False
End If

If InStr(user_rights, "用户管理") Then
   用户管理.Enabled = True
Else: 用户管理.Enabled = False
End If

If InStr(user_rights, "密码维护") Then
   密码维护.Enabled = True
Else: 密码维护.Enabled = False
End If

If InStr(user_rights, "初始化") Then
   初始化.Enabled = True
Else: 初始化.Enabled = False
End If

If InStr(user_rights, "退出登录") Then
   退出登录.Enabled = True
Else: 退出登录.Enabled = False
End If

rst.Close
conn.Close
End If
运行程序的时候，各个模块都能使用，也就是说前面判断的权限根本没用啊。教师的权限里面没有用户管理，可是运行还是可以使用用户管理这个功能。跪求高手帮忙，小弟感恩涕零！