求助：vb和access的问题~
系统用vb和acess做的~ 为什么当第一次登陆时，只要用户名错误，以后几次的登陆即时正确了，权限就变了~
有知道的吗？
[此贴子已经被作者于2006-11-13 16:41:45编辑过]
Private Sub CmdLogin_Click()
Dim StrSQL As String
UserName = CStr(Trim(TxtUserName.Text)) '//将文本框内的值赋给定义好的全局变量
PassWord = CStr(Trim(TxtPassword.Text))
If UserName <> Empty And PassWord <> Empty Then '//用户名与密码是否为空
StrSQL = "select 用户名称,用户口令,用户权限 from 管理用户 where 用户名称= '" & UserName & "'and 用户口令 ='" & PassWord & "'"
If RsLoginCheck.State = adStateClosed Then
RsLoginCheck.Open StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText '//打开记录集
End If
Group = RsLoginCheck.Fields(2).Value
If RsLoginCheck.Fields(2).Value <> "Administrators" Then
Call CheckLogin
End If
If RsLoginCheck.RecordCount <> 0 Then '//判断记录集记录条数是否为0
RsLoginCheck.Close
Unload Me
Frmmdimain.Show '//显示主窗
FrmDay.Show vbModal
ElseIf Counts < 2 Then
MsgBox "用户名域密码错误", vbExclamation + vbOKOnly, "登录失败"
RsLoginCheck.Close '//关闭记录集
Counts = Counts + 1
Else
MsgBox "密码错误不得超过三次，否则视您为非法用户！", vbCritical, "警告"
End
End If
Else
MsgBox "用户名密码不能为空", vbExclamation + vbOKOnly, "登录失败"
Call Form_Load
End If
End Sub