数据表复制？

我想实现把一个合同的数据（大约有8000条左右）复制到同一个表中，只不过不是同一个合同号，我是用程序循环做的，可我看到这样太慢了，有没有更好的办法，数据库后台操作？我用的数据库是SQL2000,我用vb做的循环代码如下：
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_bargain") = Trim(Frm_bargaincopy.Txt_bargain.Text)     
                rs("F_otisweek") = Trim(Frm_bargaincopy.Txt_otisweek.Text)   
                rs("F_nostandard") = Grid2.TextMatrix(i, 16)                 
                rs("F_re") = Grid2.TextMatrix(i, 17)                     
                rs("F_rise") = Grid2.TextMatrix(i, 18)                       
                rs.Update           Next i
       rs.Close