用户名是否正确都提示错误

Question

Private Sub cmdok_Click()
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,key from information where username = '" & Trim(txtuser.Text) & "' and key='" & Trim(txtkey.Text) & "'", conn, adOpenDynamic, adLockOptimistic
     If rs.RecordCount <= 0 Then
         MsgBox "密码或用户名错误,请重新输入", vbQuestion, "输入错误"
         txtuser = ""
         txtkey = ""
         txtuser.SetFocus
     Else
         MsgBox "登录成功，欢迎使用本系统！", vbInformation, "登录成功"
         
     End If
End Sub

Answer 1

'key是系统关键字，需要加方括号
rs.Open "select username,[key] from information where username = '" & Trim(txtuser.Text) & "' and [key]='" & Trim(txtkey.Text) & "'", conn, adOpenDynamic, adLockOptimistic

Answer 2

If rs.RecordCount <= 0 Then -> If rs.EOF Then