怎样写这个循环，求教

我的3个查询：查询1，查询2，查询3（这个查询是追加查询，只有1行数据）。另外有1个表：表1

内部逻辑是：每次运行查询3（这个查询是追加查询，只有1行数据）,就会往表1中追加1行数据。同时，查询1、查询2、查询3都会的结果都会变动。

我想要做一个循环语句，重复执行查询3，直到查询3变成0行为止。

Option Compare Database

sub 循环（）

'判断查询3是否为0行

Select Case                                                               ‘判断的结果’

     case           结果不是0行

           DoCmd.OpenQuery "查询3"                              ‘运行查询3’

     case           结果是0行

           exit select                                                        ‘跳出循环’

      case else

end select

end sub

循环语句可以写，但是不知道如何定义查询3是否为0行。求指教