我在做VB连接数据库，是一个登录界面，输入的用户名和密码怎么在数据库表中查找到啊？

我在做VB连接数据库，是一个登录界面，输入的用户名和密码怎么在数据库表中查找到啊？

以下是我大学毕业设计课题——图书馆综合管理系统（基于VB6.0开发的）程序源代码的一部分（用户登陆校验部分）仅供参考，每个人的思路都不同，希望能对你有所帮助和启发！ Option Explicit Public Conn As New ADODB.Connection '标记连接对象 Private Sub cmdLogin_Click() Dim SQL As String Dim rs_Login As New ADODB.Recordset If Trim(txtuser.Text) = "" Then '判断输入的用户名是否为空 MsgBox "请输入用户名", vbOKOnly + vbExclamation txtuser.Text = "" txtuser.SetFocus ElseIf txtpwd.Text = "" Then MsgBox "请输入密码", vbOKOnly + vbExclamation txtpwd.Text = "" txtpwd.SetFocus Else SQL = "select * from 系统管理 where 用户名='" & txtuser.Text & "'" rs_Login.Open SQL, Conn, adOpenKeyset, adLockPessimistic If rs_Login.EOF = True Then MsgBox "对不起，没有这个用户", vbOKOnly + vbExclamation txtuser.Text = "" txtuser.SetFocus rs_Login.Close Else '检验密码是否正确 If rs_Login.Fields(1) = txtpwd.Text Then UserID = txtuser.Text UserPow = rs_Login.Fields(2) rs_Login.Close Unload Me FrmLoading.Show Exit Sub Else MsgBox "密码错误，请您重输", vbOKOnly + vbExclamation txtpwd.Text = "" txtpwd.SetFocus rs_Login.Close End If End If End If End Sub Private Sub Form_Load() '系统初始化，加载数据库 Dim Connectionstring As String Connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _ "Data Source=" & App.Path & "\\book.mdb" Conn.Open Connectionstring End Sub Private Sub txtpwd_KeyPress(KeyAscii As Integer) '敲回车直接登陆 If KeyAscii = 13 Then cmdLogin_Click End Sub