表的投影联结问题（急！）

Question

现在这个问题解决了，就是一个表的uion连接问题。但是又出现了一个新的问题，我要遍历每一行的数据，然后update某些数据项，当update完了CA1表的数据之后，再更新CA2的数据，就会报错：无法为更新定位行，一些值已在最后一次读取已改变。部分代码如下：Adodc1.Refresh
Do While (Adodc1.Recordset.RecordCount > 0)
  Adodc1.Refresh
  Adodc2.Recordset.AddNew  For j = 1 To 10
      Adodc2.Recordset(j).Value = Adodc1.Recordset(j).Value
   Next j
  Adodc2.Recordset.Update
  Adodc1.Recordset(0).Value = "1"
  Adodc1.Recordset.Update       Loop
麻烦各位大侠给看看，谢谢