当我删除非最后一个记录（第一个或者中间）时均正常！但删除最后一个却出现问题
当我删除非最后一个记录（第一个或者中间）时均正常！但删除最后一个却出现问题：BOF或EOF有一个是“真”或者当前记录已被删除所需的操作要求一个当前的记录！
代码如下：
。。。
MsgBox "删除成功"
Rst.MoveNext
Text1.Text = Rst.Fields("姓名").Value
Text2.Text = Rst.Fields("单位名称").Value
Text3.Text = Rst.Fields("办公电话").Value
Text4.Text = Rst.Fields("办公电话二").Value
Text5.Text = Rst.Fields("手机").Value
Text6.Text = Rst.Fields("手机二").Value
Text7.Text = Rst.Fields("宅电").Value
Text8.Text = Rst.Fields("宅电二").Value
Text9.Text = Rst.Fields("电子邮箱").Value
Text10.Text = Rst.Fields("电子邮箱二").Value
Text11.Text = Rst.Fields("QQ号").Value
Text12.Text = Rst.Fields("QQ号二").Value
Text13.Text = Rst.Fields("地址").Value
Text14.Text = Rst.Fields("邮政编码").Value
Text15.Text = Rst.Fields("其他").Value
CmdAdd.Enabled = True
CmdPrevious.Enabled = True
CmdNext.Enabled = True
CmdFirst.Enabled = True
CmdLast.Enabled = True
End Sub
后改为代码如下：但还是不行，结果一样！
。。。
MsgBox "删除成功"
If (Not Rst.EOF) Then
Rst.MoveNext
Text1.Text = Rst.Fields("姓名").Value
Text2.Text = Rst.Fields("单位名称").Value
Text3.Text = Rst.Fields("办公电话").Value
Text4.Text = Rst.Fields("办公电话二").Value
Text5.Text = Rst.Fields("手机").Value
Text6.Text = Rst.Fields("手机二").Value
Text7.Text = Rst.Fields("宅电").Value
Text8.Text = Rst.Fields("宅电二").Value
Text9.Text = Rst.Fields("电子邮箱").Value
Text10.Text = Rst.Fields("电子邮箱二").Value
Text11.Text = Rst.Fields("QQ号").Value
Text12.Text = Rst.Fields("QQ号二").Value
Text13.Text = Rst.Fields("地址").Value
Text14.Text = Rst.Fields("邮政编码").Value
Text15.Text = Rst.Fields("其他").Value
Else
Rst.MovePrevious
Text1.Text = Rst.Fields("姓名").Value
Text2.Text = Rst.Fields("单位名称").Value
Text3.Text = Rst.Fields("办公电话").Value
Text4.Text = Rst.Fields("办公电话二").Value
Text5.Text = Rst.Fields("手机").Value
Text6.Text = Rst.Fields("手机二").Value
Text7.Text = Rst.Fields("宅电").Value
Text8.Text = Rst.Fields("宅电二").Value
Text9.Text = Rst.Fields("电子邮箱").Value
Text10.Text = Rst.Fields("电子邮箱二").Value
Text11.Text = Rst.Fields("QQ号").Value
Text12.Text = Rst.Fields("QQ号二").Value
Text13.Text = Rst.Fields("地址").Value
Text14.Text = Rst.Fields("邮政编码").Value
Text15.Text = Rst.Fields("其
。。。（略）
