添加记录后，数据库为什么没有及时更新？？？？等待中

Question

编写了一个子程序，调用添加记录 主要代码如下
private sub add1(s as integer)
rs.AddNew
   rs("序号") = lastIndex
   rs("产品料号") = Text5.Text
        
 rs.Update
end sub
在主程序中调用，刚才添加的纪录找不到.rs1记录集总是eof。call add1(i)
sqlstr = "select * from rules where lno=" & i
rs1.Open sqlstr, conn, 1, 1
有点怪：但如果运行时有检查点，则可以查到。或者在子程序中update后加入 msgbox 就可以在主程序中查到。个人怀疑是子程序添加更新不及时，不知道有没有办法，按这样的形式，及时更新数据库！！！！！！！求助大家！！！！！！1

Answer 1

用update更新过后，再重新读取数据，就会看到更新的结果了，不然还是更新之前的

Answer 2

主程序
private sub A()调用 add1
然后查找
sqlstr = "select * from rules where lno=" & i
rs1.Open sqlstr, conn, 1, 1应该可以找到的
end sub

Answer 3

回复人：xgl_1982() ( 一级(初级)) 信誉：100  2006-11-20 21:52:57  得分:0
? 
rs.Update
rs.close
cn.close
同意，你可以关闭后再打开，这样就可以了

Answer 4

用两次更新，这个用法比较差，小数据量更新问题不大,你这样的写法只能这样了
 rs.Update
 rs.update