VB实时错误'3021' BOF \EOF
此类错误的出现，是由于在对数据库进行操作时，记录集中的记录为空，或者只有一个记录。
相关代码如下：
Dim intMsgbox As Integer
m_vntBookmark = m_rstStudentInfo.Bookmark
intMsgbox = MsgBox("真的要删除当前记录吗？", vbOKCancel, "删除记录")
'确认是否要删除当前记录
If intMsgbox = vbOK Then
m_rstStudentInfo.MoveNext
'根据要删除记录的位置不同，选择不同的删除方式
If m_rstStudentInfo.EOF Then '如果要删除的为记录集的最后一条记录
m_rstStudentInfo.MoveFirst '让指针移到了最后一条之后，需要返回到第一条
m_vntBookmark = m_rstStudentInfo.Bookmark '记录当前书签（位置）
m_rstStudentInfo.MoveLast '返回上一条，将之删除
m_rstStudentInfo.Delete
m_rstStudentInfo.Bookmark = m_vntBookmark '返回刚才书签的记录位置
Call viewData '显示记录
Else '如果要删除的不是最后一条
m_vntBookmark = m_rstStudentInfo.Bookmark '记录当前指针位置
m_rstStudentInfo.MovePrevious '返回上一条将之删除
m_rstStudentInfo.Delete
m_rstStudentInfo.Bookmark = m_vntBookmark '指针返回刚才书签记录的位置
Call viewData
End If
代码相对操作流程如下：
在上述代码中，标记和删除的记录默认不为同一条。故潜在含义是：记录集中必须大于两条记录。所以当出现记录为空或是只有一条时程序报错。
解决方法如下：
If err=3021 then
If objrs.bof and objrs.eof then
Msgbox"没有记录可供删除！"
Else
Str1=msgbox（“最后一条记录，是否继续删除？”，vbokcancel，“提醒”）
If str1=vbok then
msgbox“最后一条记录已删除！”
Unload me
Else
Exit sub
End if
End if
End if
上述代码中，关键在于理解"objrs.bof and objrs.eof"
BOF：beginning of file，指向的是第一条记录的前一条记录。默认值为true
EOF:end of file ，指向的是最后一条记录的后一条。默认为true
如：记录集中共包含1、2、3、4 四条记录，BOF 则表示的是-1，而EOF 则为5.
故当objrs.bof and objrs.eof 同时满足时，则表示指针指向-1,5两条记录。即表示此记录集为空，没有记录