copiando un DBF a MySQL

[juandedios]

Saludos a todos, hice este codigo para copiar una tabla DBF para un servidor MySQL, pero creo que algo esta mal, puesto que se demora mucho.

Podrian darle una chekada a este codigo quizas hay algo que estoy haciendo mal

Código:

Dim i As Long
    
    Set rsdos = New ADODB.Recordset
    rsdos.CursorLocation = adUseClient
    
    rsdos.Open "SELECT COUNT(*) AS numreg FROM periodo", CN, adOpenKeyset, adLockOptimistic, adCmdText
    
    prbActualizar.Max = rsdos("numreg")
    rsdos.Close
    
    Set rsdos = New ADODB.Recordset
    rsdos.Open "SELECT * FROM periodo", CN, adOpenKeyset, adLockOptimistic, adCmdText
    rsdos.MoveFirst
    
    'Limpiar la tabla productos en el servidor MySQL
    StrSql = "TRUNCATE TABLE periodobico"
    CNMySQL.Execute StrSql
    
    prbActualizar.Value = 1
    i = 0
    
    Do While Not rsdos.EOF
        StrSql = "INSERT INTO periodobico " & _
                 "(cupom, terminal, udata, produto, nproduto, unidade, custo, venda, qde, selecao) " & _
                 "VALUES " & _
                 "('" & rsdos("CUPOM") & "', '" & rsdos("TERMINAL") & "', '" & Format(rsdos("UDATA"), "yyyy-mm-dd") & "', '" & rsdos("PRODUTO") & "', '" & rsdos("NPRODUTO") & "', '" & rsdos("UNIDADE") & "', " & rsdos("CUSTO") & ", " & rsdos("VENDA") & ", " & rsdos("QDE") & ", '" & rsdos("SELECAO") & "')"
        CNMySQL.Execute StrSql
        
        rsdos.MoveNext
        i = i + 1
        prbActualizar.Value = i
    Loop
    MsgBox "La actualización de los productos fue un éxito.", vbInformation
    Unload Me

el objeto prbActualizar es un progressbar.