将值从一个表插入到另一个表中，以获得更好的性能-Access 2000，VBA？

Question

我做了这种方法：

Public Sub Proba()

    Dim CPANonEmptyColumns As Integer
    CPANonEmptyColumns = 0

    Dim Max As Integer
    Max = 0

    Dim Koloni As String
    Koloni = ""

    Dim strSQL As String
    Dim intI As Integer

    Dim rsCPA As DAO.Recordset
    Dim rsCPANezbirni As DAO.Recordset
    Dim dbs_t1t2 As DAO.Database


On Error GoTo ErrorHandler

    Set dbs_t1t2 = CurrentDb

    'Open a recordset on all records from the Employees table that have
    'a Null value in the ReportsTo field.
    strSQL = "SELECT * FROM CPA_t1t2"
    Set rsCPA = dbs_t1t2.OpenRecordset(strSQL)    '//, dbOpenDynaset)

    'If the recordset is empty, exit.
    If rsCPA.EOF Then Exit Sub

    intI = 1
    With rsCPA
      Do Until .EOF
        DoCmd.RunSQL "INSERT INTO CPA_nezbirni (tipprod, promet) VALUES ('" & ![tipprod] & "', '" & ![promet] & "');"

        ' check individual column if it has a value and increment max if CPANonEmptyColumns
        If ![t4k1] <> Null Or ![t4k1] <> "" Then
           CPANonEmptyColumns = CPANonEmptyColumns + 1
           Koloni = Koloni & "t4k1,"

        End If

        If ![t4k2] <> Null Or ![t4k2] <> "" Then
           CPANonEmptyColumns = CPANonEmptyColumns + 1
           Koloni = Koloni & "t4k2,"
        End If

        If ![t4k3] <> Null Or ![t4k3] <> "" Then
           CPANonEmptyColumns = CPANonEmptyColumns + 1
           Koloni = Koloni & "t4k3,"
        End If

        If CPANonEmptyColumns > Max Then
            Max = CPANonEmptyColumns
        End If

        Debug.Print "Red: " & Str(intI) & " Max: " & Str(Max) & ", Koloni: " & Koloni

        .Edit
        .MoveNext
        CPANonEmptyColumns = 0
        Koloni = ""
        intI = intI + 1
      Loop
    End With

    rsCPA.Close
    dbs_t1t2.Close

    Set rsCPA = Nothing
    Set dbs_t1t2 = Nothing

ErrorHandler:
   MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description

End Sub

基本上，我打开两个表CPA_t1t2和CPA_nezbirni。 我想将适当列，tipprod和promet的适当值从CPA_t1t2复制到CPA_nezbirni。 问题是，源表CPA_t1t2具有18000行，它需要时间来运行所有带有以下语句的“ INSERT”查询：

DoCmd.RunSQL "INSERT INTO CPA_nezbirni (tipprod, promet) VALUES ('" & ![tipprod] & "', '" & ![promet] & "');"

当涉及到有关性能的SQL时，我总是感到怀疑。 由于完成该过程并将值插入CPA_nezbirni需要3-4分钟，因此SQL将值从一个表复制到另一个表的方法是否更慢？

通过上面的过程和一些VBA，是否有通过相同的“直到”循环的更好，更快的方法？