BOF或EOF有一个是真，或者当前记录已被删除

        在调试“学生管理系统”时，想修改学籍信息，如果此时数据库中的数据已被完全删除则会出现“BoF 或Eof有一个是真，或当前记录已被删除的错误”我们这时要做的就是在使用Recordset对象的moveNext 等方法之前先利用RecordsetCount属性判断一下数据库中的数据是否为空方法：

      dim objRs as New Recordset

      dim objCn as  New  connection

      dim  strSql as string

        objCn.ConnectionString="fileDsn=student.dsn;User_Id=sa;PassWord=123"

objcn.open

strSql="SELECT  *  FROM Student_info"

objRs.Open strSql ,objCn,adOpenKeyset, adLockOptimistic

'在这判断，若为空则告知用户并退出该模块操作就行了

if objRS.RecordsetCount=0 then

        msgbox "学籍信息不存在，请补充后在操作！"

         objRs.Close

        Set objRs=Nothing

        exit sub       '这一步可别忘了，要不然还得报错，原因是依旧执行了以后的操作

end if

     这样就可以解决了这个问题，然后继续以后的操作即可，如果我们事先编写了链接数据库并将记录返回给Recordset的函数，则步骤可以省略点了！