1：如果当前记录位于第一个记录之前，BOF 属性将返回 True (-1)，如果当前记录为第一个记录或位于其后则将返回 False (0)。

2：如果当前记录位于 Recordset 对象的最后一个记录之后 EOF 属性将返回 True，而当前记录为 Recordset 对象的最后一个记录或位于其前，则将返回 False。

3：如果 BOF 或 EOF 属性为 True，则没有当前记录。

4：如果打开没有记录的 Recordset 对象，BOF 和 EOF 属性将设置为 True，而 Recordset 对象的 RecordCount属性设置为零。打开至少包含一条记录的 Recordset 对象时，第一条记录为当前记录，而 BOF 和 EOF 属性为 False。

 Private Sub deleteCommand_Click()
        mybookmark = mrc.Bookmark                      '将数据库的记录赋值给空记录，做标记
        str2$ = MsgBox("是否删除当前纪录？", vbOKCancel, "删除当前记录")
        If str2$ = vbOK Then                           '如果选择删除记录
          mrc.MoveNext                                 '只要有记录集数据库会一直向下移动（这是大前提）
             If mrc.EOF Then             '第一种情况：如果已经执行到完整个记录集，要删除最后一条记录
               mrc.MoveFirst                           '则指向刚开始的记录（做个标记）
               mybookmark = mrc.Bookmark
               mrc.MoveLast                            '返回最后一个记录
               mrc.Delete                              '实行删除操作
               mrc.Bookmark = mybookmark               '找到刚才的标记
               Call viewdata
            Else
               mybookmark = mrcbookmark  '第二种情况：删除除最后一条以外的其他记录（还是先赋值做标记）
               mrc.MovePrevious                        '向最后一条记录以上的记录移动
               mrc.Delete                              '删除
               mrc.Bookmark = mybookmark               '找到刚才的标记
               Call viewdata
           End If
      Else
         mrc.Bookmark = mybookmark          '如果选择不删除记录按钮，同样要做标记，只是找到开始标记处  
         Call viewdata
     End If
End Sub