Question

VB【急】 BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录

代码如下：
Dim conn As ADODB.Connection
Dim rchang As New ADODB.Recordset

Private Sub Command1_Click()
If Text2.Text <> rchang.Fields("密码") Then
MsgBox ("原密码输入错误")
ElseIf Text3.Text <> Text4.Text Then
MsgBox ("新密码不一致")
Else
rchang.Fields("密码") = Text3.Text——————这里变成黄色
MsgBox ("密码修改成功！")
rchang.Update
End If
End Sub
Private Sub Command2_Click()
conn.Close
frmchangpwd.Hide
End Sub

Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.Open "driver=microsoft access driver (*.mdb);dbq=" & App.Path & "\图书管理信息系统.mdb"
rchang.Open "select * from 用户登录信息表 where 用户名='" & num & "'", conn, adOpenDynamic, adLockOptimistic
End Sub

因为我的VB不太好，希望可以解释的详细一点，并告诉我解决方案~~~
谢谢~~~~~~~~
帮帮我啊~~~

Answer 1

Dim conn As New ADODB.Connection
Dim rchang As New ADODB.Recordset

Private Sub Command1_Click()
If rchang.RecordCount > 0 Then'判断一下记录集就好了
If Text2.Text <> rchang.Fields("密码") Then
MsgBox ("原密码输入错误")
ElseIf Text3.Text <> Text4.Text Then
MsgBox ("新密码不一致")
Else
rchang.Fields("密码") = Text3.Text——————这里变成黄色

MsgBox ("密码修改成功！")
rchang.Update
End If
End If
End Sub
Private Sub Command2_Click()
conn.Close
frmchangpwd.Hide
End Sub

Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.Open "driver=microsoft access driver (*.mdb);dbq=" & App.Path & "\图书管理信息系统.mdb"
rchang.Open "select * from 用户登录信息表 where 用户名='" & num & "'", conn, adOpenDynamic, adLockOptimistic
End Sub