解决方法：加段判断记录是否存在的代码，若不存在就跳出过程，否则执行下去，代码如下
                If rst.EOF Then     '判断到记录末尾了没
                    MsgBox "没有此记录"
                    GoTo ExitHere   '退出过程
                End If