问题太多 
我一般是用很长一个字符型的字段来作为权限的
比如:
QX="111000111"

if mid(qx,X,1)="1" then 
  msgbox "有权限"
else
  msgbox "无权限"end if

解决方案 »

  1.   

    登录窗口用一个combo控件和一个文本控件
    分别用于让使用者输入
                      用户名和密码
    加载时把数据库中的用户名和密码全部读取,用户名读取到combo下,密码用一个
    数组保存分别对应combo上的用户名
       当用户选择combo下的第几个项时,就调用相应的密码进行验证,如果通过就进入主窗口,否则重来或退出
       
       由于在外面,不是很方便,没有源码,不过不是很难,你自己试试
      

  2.   

    同意ivt(依纹) 
    我的做法跟他(她)完全一样,这样做的好处是每选一个用户都不用去和数据库的对应密码字段进行比较.
      

  3.   

    还有一招,如果密码全为数字,有超出长整数范围,可以将其写到combo的itemdata中。例如,rs为用户名和密码的记录集:
    do until rs.eof
    combo1.addnew rs!username
    combo1.itemdata(combo1.newindex)=rs!password
    loop验证时
    if combo1.itemdata(combo1.listindex)=val(txtPassword) then '通过