Sub Export(strPath As String)
    Dim connExport As New ADODB.Connection
    Dim RSetFrom As ADODB.Recordset
    Dim RSetTo As ADODB.Recordset
    Dim strFileName As String
    Dim i As Long
    
    connExport.Errors.Clear
    connExport.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=DBASE IV;Data Source=" & strPath
    
    connExport.Errors.Clear
    connExport.Execute "CREATE TABLE " & strFileName & ".DBF" _
    & " (TAB_KEY INTEGER, UNIQUE_ID INTEGER, N_DS DECIMAL(4), N_GROUP DECIMAL(3), SURNAME VARCHAR, NAME VARCHAR);", , adExecuteNoRecords
    
    Set RSetFrom = MainConnection.Execute("SELECT ... FROM ...")
    
    Set RSetTo = New ADODB.Recordset
    RSetTo.Open strFileName, connExport, adOpenDynamic, adLockPessimistic
    
    Do Until RsetFrom.EOF
    'В этом цыкле, если нет места на диске, условие RsetFrom.EOF делается равным True, происходит выход из цыкла и текст выполняется дальше
        RSetTo.AddNew Array( 0 ,  1 ,  2 ,  3 ,  4 ,  5 ), Array(i _
        , RSetFrom.Fields( 0 ).Value _
        , RSetFrom.Fields( 1 ).Value _
        , RSetFrom.Fields( 2 ).Value _
        , RSetFrom.Fields( 3 ).Value _
        , RSetFrom.Fields( 4 ).Value)
        
        RSetFrom.MoveNext
        i = i +  1 
    Loop
    
    RSetFrom.Close
    RSetTo.Close
    Set RSetTo = Nothing
    Set RSetFrom = Nothing
    connExport.Close
    Set connExport = Nothing
End Sub