当我删除非最后一个记录（第一个或者中间）时均正常！但删除最后一个却出现问题：

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("其
。。。（略）

当你只剩下一条记录的时候...你又去MoveNext它...它超出了记录的尾端..所以就出错..你移动了..再加个判断就行了..

应该怎么改呢？
我已经加了个判断了！错在啦呢？

移动之后再判断..

谢谢，删除按钮问题解决了！

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("其