Option Explicit

Private Sub Command1_Click()
Dim cn_dbf As ADODB.Connection, rs_dbf_spis As ADODB.Recordset
Dim SourceDB As String, i As Long

Set cn_dbf = New ADODB.Connection
Set rs_dbf_spis = New ADODB.Recordset

cn_dbf.CursorLocation = adUseClient
SourceDB = "C:\Temp\dd\"
cn_dbf.Open "Provider=VFPOLEDB.1;Data Source=" + SourceDB + ";Collating Sequence=MACHINE"

rs_dbf_spis.Open "Select * from table1", cn_dbf, adOpenKeyset, adLockOptimistic
'---------------------------------------------------------
For i =  1  To  10000 
    rs_dbf_spis.AddNew
    ' Заполнение полей: ------
    rs_dbf_spis!Name = "Иванов - " & CStr(i)
    rs_dbf_spis!code = i
    '-------------------------
    rs_dbf_spis.Update
Next i
rs_dbf_spis.Close
cn_dbf.Close
Set rs_dbf_spis = Nothing
Set cn_dbf = Nothing
End Sub