寻求上千条纪录复制的算法？

我有一个问题：有一个标准记录集（大约有1万条纪录），在每次复制这些记录后再进行每一条纪录的添加/修改操作，在我每次把这些记录进行复制时都要等待很长的时间，复制的代码如下,我是进行循环复制，这样的速度太慢了。有没有更好的算法来复制这些记录。
rs.Open "select * from T_copyrount where F_productname='" & Trim(Cbo.Text) & "'", cn, 1, 3
             
           For i = 1 To Grid2.Rows - 1
               
                rs.AddNew
                rs("F_productname") = Trim(Cbo.Text)
                rs("F_thid") = Grid2.TextMatrix(i, 1)
                rs("F_picid") = Grid2.TextMatrix(i, 2)
                rs("F_name") = Grid2.TextMatrix(i, 3)
                rs("F_material") = Grid2.TextMatrix(i, 4)
                rs("F_num") = Grid2.TextMatrix(i, 5)
                ..................................
                ..................................
                rs.Update           Next i
       rs.Close