为什么只能用户表中第一条记当的用户能成登录的，

Option Compare Database


Private Sub 登录_Click()
    Set conn = CurrentProject.Connection
    Set rs = New ADODB.Recordset
    rs.Open "职工信息", conn
   
     Dim username As Variant
     Dim userpass As Variant


    Text1.SetFocus
    username = Text1.Text
    Text3.SetFocus
    userpass = Text3.Text
If IsNull(Text1) Or IsNull(Text3) Then  '判断用户名和密码是否为空
   MsgBox "用户名或密码不能为空,请重新输入!", vbOKOnly + vblnformation, "错误信息"
Else
   If username <> rs!用户名 Or userpass <> rs!密码 Then     '判断用户名和密码是否正确
    MsgBox "用户名或密码不正确，请重新输入", vbOKOnly + vbInformation, "错误信息 "
Text1.SetFocus
Text1.Text = ""
Text3.SetFocus
Text3.Value = ""
Text1.SetFocus
Else
'将登录时间计入数据库
 rs.Close
rs.Open "用户登录记录表", conn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!用户名 = username
rs.AddNew
rs!登录时间 = Now()
rs!退出时间 = CDate(0)
rs.Update
rs.Close
DoCmd.Close
DoCmd.OpenForm "日志录入"
End If
End If
End Sub




Private Sub form_load()
 Text1.SetFocus '初始化窗体内容
 Text1.Text = ""
Text3.SetFocus
Text3 = ""
End Sub