INSERT INTO [dBASE III;DATABASE=z:\docs\].[dbf2.dbf]
SELECT *
FROM dbf1;

INSERT  INTO dbf1
SELECT *
FROM  [dBASE III;DATABASE=z:\docs\].[dbf2.dbf];

dbFile = "С:\путь к файлу аксесс\storage.accdb"
Set acApp = CreateObject("Access.Application") ' создаем объект типа акссесс
acApp.OpenCurrentDatabase dbFile ' открываем его
Set acDoCmd = acApp.DoCmd ' даем ему ссылку на инициализацию команды docmd
'выполняем команду импорта или экспорта
acDoCmd.TransferSpreadsheet  acimport' здесь после набор констант, которые более гибко позволят настроить импорт/или экспорт
acApp.Quit ' закрываем объект

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Access
Imports Microsoft.VisualBasic
Imports System
Imports System.Diagnostics
Imports System.IO
Imports System.Windows.Forms

Dim acApp As New Microsoft.Office.Interop.Access.Application

        acApp.OpenCurrentDatabase("D:\S\Test\Test.mdb", False)
        acApp.DoCmd.TransferDatabase(Microsoft.Office.Interop.Access.AcDataTransferType.acImport, _
                                     "dBASE III", "D:\S\Test\", Microsoft.Office.Interop.Access.AcObjectType.acTable, _
                                     "Test.dbf", "Job")


        acApp.DoCmd.OpenQuery("Query1") ' Updates Data
        acApp.DoCmd.OpenQuery("Query2") ' Creates Table
        acApp.DoCmd.OpenQuery("Query3") ' Appends Data to New table
        acApp.DoCmd.OpenQuery("Query4") ' More updates to new table

        acApp.DoCmd.TransferDatabase(Microsoft.Office.Interop.Access.AcDataTransferType.acExport, "dBASE IV", _
                                     "D:\S\Test\", Microsoft.Office.Interop.Access.AcObjectType.acTable, "NewJob", _
                                     "NewDBF")

        acApp.CloseCurrentDatabase()

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dbFile As String
        Dim acApp As Object
        Dim acDoCmd As Object
        dbFile = "C:\Users\SL\Desktop\storage.accdb"
        acApp = CreateObject("Access.Application") ' создаем объект типа акссесс
        acApp.OpenCurrentDatabase(dbFile) ' открываем его
        acDoCmd = acApp.DoCmd ' даем ему ссылку на инициализацию команды docmd
        'выполняем команду импорта или экспорта
        acDoCmd.Outputto(0, "t_test", "Excel Workbook (*.xlsx)", , True) 
        acApp.Quit ' закрываем объект
    End Sub
End Class