请帮忙修改一句程序，如何在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这段代码执行之后，假如有两条数据满足，则这两个灯一会一起闪，一会依次闪，怎么才能让他们同时闪？