access无法使用

如果任何数据库打开都出现这个问题，那么就是access本身出问题了，扫描一下硬盘看有没有文件丢失，重装一个access。

如果是某个数据库运行期间出现这个问题，可能是这个数据库文件坏了，又或者vba或宏代码有问题，例如死循环或用了某些api之类，逐个功能尝试，看能不能找到问题。数据库文件坏了的话，可以新建一个数据库，导入原数据库所有东西。

因为不清楚你的问题什么原因引起，所以只能给几点参考。

Do While Not rd.EOF

rd.Find "po = '4031770'", 1, adSearchForward

rd.Delete

rd.MoveNext ' 我记得是这个..向下游标...你最好查下手的..

Loop

P.S.用RS做删除没做过..不知道是不是内存游标有变化~

---