用户在登录界面登录时，先检验用户权限，进行判定，再根据权限跳转界面，设定其他权限信息即可。
创新互联公司：2013年至今为各行业开拓出企业自己的“网站建设”服务，为上千家公司企业提供了专业的成都网站制作、成都网站建设、网页设计和网站推广服务， 按需设计网站由设计师亲自精心设计，设计的效果完全按照客户的要求，并适当的提出合理的建议，拥有的视觉效果，策划师分析客户的同行竞争对手，根据客户的实际情况给出合理的网站构架，制作客户同行业具有领先地位的。
将用户名，密码，用户类型存在数据库中，登陆时比较输入的值是否与数据库相同即可。
有许多方法，用一个类，在这个类中写个验证方法（修改方便），或直接在程序中写一个方法。再用image标签在第一次加载程序时调用方法。
你每次取出的是表中的首条记录，当然只能用首条记录登陆了！
Dim name, password As String
name = TextBox1.Text
Dim com As New OleDb.OleDbCommand("select * from denglu where name='" name "'", conn)
Dim dr As OleDb.OleDbDataReader
conn.Open()
dr = com.ExecuteReader
dr.Read()
password = dr.GetString(1)
If TextBox3.Text = password Then
mesbox("成功!")
Else
msgbox("失败")
End If
dr.Close()
conn.Close()
这种情况下，效率极不好！你能理解什么意思就行了！否则将你的程序改完了！
