求教 关于vb中recordset.fileds问题 在线等。。。。。。。。。。。。。。。
小弟在毕业设计中，用vb设计一管理系统
想在main.form的load过程中判断进入的用户是什么类别？如是管理员，则显示某一菜单，若是普通用户，则不显示那个菜单。
小弟的用户表有三个字段，分别是用户名、密码、用户类别，其中用户类别中只有两种值，一种是管理员，另种就是用户
现在就是想先判断用户类型是什么？然后据此执行是否显示某一菜单。
我代码如下：
Private Sub Form_Load()
menu_yhgl.Visible = False
Adodc1.RecordSource = "用户表 "
Adodc1.Refresh
With Adodc1.Recordset
If .Fields(2).Value = "管理员 " Then menu_yhgl.Visible = True
End With
End Sub
虽然没有报错，但是并没达到我预期效果。恳请各位达人多指点！
[解决办法]
Global 变量名 As String '在模块中定义，用于保存登陆窗口中的用户类别
然后再主窗体中判断这个变量
[解决办法]
我晕了
Global type As String '登陆窗体
Adodc1.RecordSource = "用户表 "
Adodc1.Refresh
type =Adodc1.Recordset.Fields(2).Value
Private Sub Form_Load()
If type = "管理员 " Then '主窗体
menu_yhgl.Visible = True
else
menu_yhgl.Visible = False
endif
endsub
