我們這時要做的就是在使用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 (){ }
