重复循环？

scfzdn

假设BAR表有10条记录
    GXTAB有4条记录
执行以下代码时只会取BAR表的一条数据，GXTAB
表的4条记录可以循环，请问如何始BAR表也循环？
代码：
  Do While Not bar.EOF
   Do While Not gxtab.EOF
                                     With GF
.ADDNEW
.Fields("zdno") = bar.Fields("zdno")
.Fields("cs") = bar.Fields("cs")
.Fields("GXNO") = gxtab.Fields("gxno")
.Fields("no") = bar.Fields("barid")
.Fields("data") = bar.Fields("bardata")
.Fields("dfno") = bar.Fields("dfno")
.Update
End With
        
      gxtab.MoveNext
    Loop
  
       bar.MoveNext
   Loop

ADAM

為什么要這樣寫代碼呢
如果bar
與gxtab
有關鍵字聯接
做個簡單的選擇查詢就可以了....