请帮忙修改一句程序，如何在timer里面操作数据库里满足条件的数据

我想在timer2触发的时候，让数据库中满足条件的灯（ima1）都闪烁，请问下面代码如何修改呢?

   Private Sub Timer2_Timer() 
   
*******************************
    Do Until rs1.EOF
    
        Ima1(rs1.Fields("地址号") - 1).Visible = Not Ima1(rs1.Fields("地址号") - 1).Visible
        rs1.MoveNext
    Loop

*******************************
    end sub

这段代码执行之后，假如有两条数据满足，则这两个灯一会一起闪，一会依次闪，怎么才能让他们同时闪？ 首先应该确认TIMER的间隔,如果数据库过于大的话,是很费时间的.
尝试分开,先将地址号读出,然后再改变显示状态
i=res.fields("地址号")
ima1(i-1).visible=not ima1(i-1).visible

补充：VB ,  数据库(包含打印，安装，报表)