帮我检查一个DAO数据库连接查询程序（在线等）

Question

你弹出的Msgbox是一个模态对话框，不把它关闭，下面的代码是不会执行的

Answer 1

请检查 Rsmy.RecordCount 的值是多少？
可能是 -1 吧！

Answer 2

不不 。
数据库中有记录存在的。很多。
不可能出现-1的现象。这个程序是实现的是：
对输入text19中的数据进行查询。但是点击后没有反映了。我原来以为要刷新，就加了个msgbox作为判断，但是没有弹出。所以一定在两个消息框之间出问题了。

Answer 3

你在Text18.Text = Trim(" " & Rsmy.Fields("备注"))
这句加个断点,分步执行看看能不能走到msgbox2

Answer 4

找到问题：
For I = 0 To (Rsmy.RecordCount - 1)
这句话出现错误。当我把(Rsmy.RecordCount - 1)换成100 就可以查询到了。
我就是想不通，为什么啊/？

Answer 5

那以前的错误在哪里呢？
我说的是用For I = 0 To (Rsmy.RecordCount - 1)
语句没有错误吧，为什么不能搜索呢？