Question

vb 中的 实时错误'3021'，BOF或EOF中有一个是"真",或者当前的记录以被删除

Private Sub Command1_Click()
If txtPass.Text = "" Or comPer.Text = "" Then
MsgBox "请选择用户名或输入密码!", 0 + 48, "提示"
txtPass.SetFocus
Exit Sub

Else
Adodc1.RecordSource = "select * from pass where 名称='" & comPer.Text & "'and 密码='" & txtPass.Text & "'"
Adodc1.Refresh
If txtPass.Text <> Adodc1.Recordset.Fields("密码") Then '密码与用户名
MsgBox "密码错误！": txtPass.Text = "": txtPass.SetFocus: Exit Sub
Else
Mainfrm.Show
End If
End If
End Sub

这是一个登录界面的代码，帐号密码都正确是不发生错误，只在密码不正确时发生错误，提示：实时错误'3021'

Answer 1

当密码不对时"select * from pass where 名称='" & comPer.Text & "'and 密码='" & txtPass.Text & "'"是检索不到结果的，此时 Adodc1.Recordset.Fields("密码")必然报错
sql应该改成"select * from pass where 名称='" & comPer.Text & "'"

Answer 2

改成
If Adodc1.Recordcount =0 Then '密码与用户名
MsgBox "密码错误！": txtPass.Text = "": txtPass.SetFocus: Exit Sub