，循环中插入多条记录（几万条），速度很慢（该怎么优化）

求助，循环中插入多条记录（几万条），速度很慢（该如何优化）
将一个表经过处理后添加到另外一张表
Do Until objOraRS_GP.EOF
        If objOraRS_GG.RecordCount > 0 Then
            objOraRS_GG.DbEdit
         Else
            objOraRS_GG.AddNew
         End If
      ...
      objOraRS_GG.Fields("UPD_WHO").Value = objOraRS_GP.Fields("UPD_WHO").Value
     ...

         objOraRS_GG.DbUpDate
         objOraRS_GP.MoveNext
LOOP
------解决思路----------------------
楼主，你这个不是Oracle数据库的问题吧。