求助：用VB怎么实现用户名和密码验证？

来源：百度知道 编辑：UC知道 时间：2024/06/08 06:59:15
程序运行，在用户名和密码框输入任何数字，字母都会登陆到主界面
根本没有通过验证，这是怎么回事啊？望高手指教！在小弟在此谢过了！
以下是我的代码：
Private Sub Command1_Click()
Dim rs1 As New ADODB.Recordset
rs1.Open "select * from qxb where 操作员='" & Trim(Text1.text) & "' and 密码='" & Trim(Text2.text) & "'", Cnn, adOpenKeyset, adLockOptimistic
If Trim(Text1.text) = "" Or Trim(Text2.text) = "" Then
MsgBox "用户名或密码不能为空"
Exit Sub
Text1.SetFocus
End If
If rs1.EOF Then
MsgBox "登陆成功！"
Load frm_main
frm_main.Show
Unload Me
Else
MsgBox "用户名或密码错误！"
End If
rs1.Close
End Sub
如果是If not rs1.EOF Then
运行老是出现用户名或密码错误的提示！如何判断用户名和密码是正确的啊？是不是语句不对？

Private Sub Command1_Click()
If Trim(Text1.text) = "" Or Trim(Text2.text) = "" Then
MsgBox "用户名或密码不能为空"
Text1.SetFocus
Exit Sub
End If

Dim rs1 As New ADODB.Recordset
rs1.Open "select * from qxb where 操作员='" & Trim(Text1.text) & "' and 密码='" & Trim(Text2.text) & "'", Cnn, adOpenKeyset, adLockOptimistic
If not rs1.EOF Then
MsgBox "登陆成功！"
Load frm_main
frm_main.Show
Unload Me
Else
MsgBox "用户名或密码错误！"
End If
rs1.Close
End Sub

如果出现"用户名或密码错误！",则检查表qxb中的字段名、类型等，并检查字母大小写。