定义一个全局变量，比如 DIm myAuthority As Integer。
公司主营业务：成都做网站、成都网站制作、成都外贸网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联建站是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联建站推出鹿邑免费做网站回馈大家。
用来存放当前登录用户的权限 myAuthority = Trim(user_SignIn.rs.Fields("用户级别").Value。
通过 Select Case myAuthority 来区分不同的权限。
注销的时候就把 myAuthority 赋值成权限列表中没有的数值就可以了，比如 myAuthority = 99。
你在项目里，添加新建，应用程序清单，然后根据提示操作就行，他会自动请求管理员权限。
可以在数据库里加个字段[userdpt]，可区分用户组。比如管理员组就设为admin.
通过判断组别来控制菜单项
3个表中用户名和密码及权限都放到一个表如User中吧 方便些。用户名用下拉框，选择姓名后直接弹出权限（Lable）.在下拉框SelectedIndexChanged事件中写即可。