我们这时要做的就是在使用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 (){ }
