这是在vb中的一个对数据库中数据的删除过程，点击按钮后程序第一句则是将你要删除的那条记录的位置作为书签保存到myBookmark这个变量里面，然后选择确定删除的话，首先执行if语句下的第一句
mrc.MoveNext
即是将当前记录指向下下一条记录，这个“下一条”记录如果已经是最后一条记录的下一条即为空记录的地方（if mrc.EOF)，那么则将当前记录指向第一条记录，因为当前记录不能为空（再详细点解释的话我前面一片博客已经做过论述，这个是关于EOF和BOF的理解），然后将MoverNext后的当前记录书签位置保存在myBookmark变量里，覆盖原来的位置，然后又将当前位置转移到你想删除的那条数据上，执行删除语句
mrc.MoveLast
mrc.Delete
到这里，就完成了指定记录的删除。接下来则是把刚才你删除之前你要删除的记录的下一条记录显示出来，因为之前你已经把这条记录保存到了myBookmark里面，所以再赋值回去就行了
mrc.Bookmark=myBookmark
然后用自定义的viewData()函数将其显示出来。
第一个Else里则是一开始MoveNext之后并不是指向空区域，首先是将MoveNext后的记录（要删除记录的下一条记录）书签位置保存在myBookmark里面，然后
MovePrevious
回到你想删除的记录，执行删除指令
mrc.Delete
然后再将删除前的下一条记录赋给书签作为当前记录
mrc.Bookmark=myBookmark
然后显示当前记录
Call viewData
最后一个Else就不用说了。