为什么这段代码，会消耗小弟我大量时间（5分钟以上）？

为什么这段代码，会消耗我大量时间（5分钟以上）？？
为什么这段代码，会消耗我大量时间（5分钟以上）？？处量的记录总共约15000条，ACCESS   数据库，这些表都已建立自增量的字段主键。


'开始导入数据

                                        CopyRowItem   =   DatasetInput.Tables( "Code ").Rows
                                        For   NN   =   0   To   CopyRowItem.Count   -   1
                                                CopyRow   =   DataSetBBzt.Tables( "Rep_code ").NewRow()
                                                CopyRow( "bytYear ")   =   InputYear
                                                CopyRow( "strCodeID ")   =   CopyRowItem(NN).Item( "strCodeID ")
                                                CopyRow( "strCodeName ")   =   CopyRowItem(NN).Item( "strCodeName ")
                                                CopyRow( "blnDepartment ")   =   CopyRowItem(NN).Item( "blnDepartment ")
                                                CopyRow( "blnEnd ")   =   CopyRowItem(NN).Item( "blnEnd ")
                                                CopyRow( "bytGrade ")   =   CopyRowItem(NN).Item( "bytGrade ")
                                                CopyRow( "bytClass ")   =   CopyRowItem(NN).Item( "bytClass ")
                                                CopyRow( "blnD_C ")   =   CopyRowItem(NN).Item( "blnD_C ")
                                                CopyRow( "strMeasure ")   =   CopyRowItem(NN).Item( "strMeasure ")
                                                CopyRow( "blnChange ")   =   CopyRowItem(NN).Item( "blnChange ")
                                                CopyRow( "blnChild ")   =   CopyRowItem(NN).Item( "blnChild ")