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