关于登录窗体制作程序问题！！！！

各位高手好：

    我最近做了一个登录窗体，但总是出现问题，程序代码如下：

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
    txt_用户名.SetFocus
    userpass = txt_密码.Value

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

Private Sub Form_Load()
    txt_用户名.SetFocus  '初始化窗体内容
    txt_用户名.Text = ""
    txt_密码.SetFocus
    txt_密码.Text = ""
    txt_用户名.SetFocus
End Sub

不知是哪里出了问题，为什么登录只能用“用户表”中的第一个用户登录，且输入的密码根本不是我设定的密码，用其它用户及密码根本不能登录，

烦请各位大师给回复，谢谢，QQ号876315496