Sub Export(strPath As String)
    Dim connExport As New ADODB.Connection
    Dim strFileName As String
    
    connExport.Errors.Clear
    connExport.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=DBASE IV;Data Source=" & strPath
    
    'здесь должен быть код алгоритма по составлению имени таблицы (strFileName)...
    ' на пример "MDTOSB_2009_12_22_121_ALL"
    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
    
    connExport.Close
End Sub