登录界面优化

Question

怎么实现登录的时候自动找到类别
注：在数据库中有个用户表，里面有三个字段，其中第三个是类别，1代表管理员，0代表普通用户

Answer 1

SQL = "select * from myuser where username ='" & Me.Txtusername.Text & "'"         If Rs("level") = 1 Then
        msgbox "你选择的是管理员类别",vbokonly,"提示" 
        ElseIf Rs("level") = 0 Then
        msgbox "你选择的是管理员类别",vbokonly,"提示" 
     End If

Answer 2

在窗体Form_Load()里用循环
从库里取出人循环填充datacombo,语句类似：datacombo2.AddItem "1"