我的一段登陆按钮代码，用户表里有三个用户名，在登陆时只有第一个用户名有效，其他几个都是用户名或密码错误，不知什么原因，请高手指点，代码如下，谢谢！
Option Compare Database
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub cmd_登陆_Click()
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "用户表 ", conn
Dim username As String
Dim userpass As String
txt_用户名.SetFocus
username = txt_用户名.Text
If IsNull(username) Or IsNull(txt_密码.Value) Then
MsgBox "用户名或密码不能为空,请重新输入!", vbOKOnly + vbInformation, "错误信息"
Else
If username <> rs!用户名 Then
MsgBox "用户名或密码不正确,请重新输入", vbOKOnly + vbInformation, "错误信息"
txt_用户名.SetFocus
txt_用户名.Text = ""
txt_密码.SetFocus
txt_密码.Value = ""
txt_用户名.SetFocus
Else
rs.Close
rs.Open "用户登录记录表", conn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!用户名 = username
rs!登录时间 = Now()
rs!退出时间 = CDate(0)
rs.Update
rs.Close
DoCmd.Close
DoCmd.OpenForm "库存信息窗体"
End If
End If
End Sub
Private Sub Form_Load()
txt_用户名.SetFocus
txt_用户名.Text = ""
txt_密码.SetFocus
txt_密码.Text = ""
txt_用户名.SetFocus
End Sub
