正确的或者是错误的用户密码都提示错误，请问怎么解决
Private Sub cmdok_Click()
Dim strSql As String
Dim cn As New ADODB.Connection '* 数据库连接
Dim rs As New ADODB.Recordset '* 数据库记录
On Error Resume Next
'* 连接数据库源
cn.CursorLocation = adUseClient
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\user.mdb" '数据库名称
rs.Open "select username from information where username = '" & Trim(txtuser.Text) & "'", conn, adOpenDynamic, adLockOptimistic
If rs.RecordCount < 0 Then
MsgBox "密码或用户名错误,请重新输入", vbQuestion, "输入错误"
txtuser = ""
txtkey = ""
txtuser.SetFocus
Else
MsgBox "登录成功，欢迎使用本系统！", vbInformation, "登录成功"
End If
End Sub
[解决办法]
1)rs 的游标要设为 adUseClient
2)完成上面的修改后，不存在时记录数应该是 =0，不可能有 <0 的状态。
3)你只比较了用户名，哪里用到密码了？
[解决办法]
rs.Open "select username from information where username = '" & Trim(txtuser.Text) & "'", conn, adopenkeyset,adlockreadonly
If rs.RecordCount = 0 Then
MsgBox "密码或用户名错误,请重新输入", vbQuestion, "输入错误"
