用户名是否正确都提示异常

用户名是否正确都提示错误
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

[解决办法]

VB code

'key是系统关键字，需要加方括号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 -> If rs.EOF Then