Public Sub Command1_Click()
    Dim file_mdb As String:  file_mdb = "db1.mdb"
    Dim name_dbf As String:  name_dbf = "basa"
    Dim tablica1 As String:  tablica1 = "Таблица1"  ' будет создана таблица в db1.mdb из basa.dbf одним махом
    
    Dim DB1 As New ADODB.Connection
    With DB1
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Mode = adModeReadWrite
        .ConnectionString = App.Path & "\db1.mdb"
        .Open
        .Execute "SELECT * INTO [Таблица1] FROM [dBase III;DATABASE=" & App.Path & "\].[basa#dbf]"
        .Close
    End With
    
    Set DB1 = Nothing
    
End Sub

Private Sub Command1_Click000()
    On Error GoTo err1
    
    Dim file_mdb As String:  file_mdb = "db1.mdb"
    Dim name_dbf As String:  name_dbf = "basa"
    
    Dim DB As DAO.Database
    Dim RS1 As DAO.Recordset
    Dim RS2 As DAO.Recordset
    Dim TB As DAO.TableDef

    'присоединю базы dbf к db1.mdb
    Set DB1 = DBEngine( 0 ).OpenDatabase(App.Path & "\" & file_mdb, True, False)
   
    Set TB = DB.CreateTableDef(name_dbf)
    TB.Connect = "dBase III;DataBase=" & App.Path
    TB.SourceTableName = name_dbf
    DB.TableDefs.Append TB

    Set RS = DB.OpenRecordset("SELECT * From  " & name_dbf, dbOpenDynaset, dbDenyWrite)
    
    If Not RS.EOF Then
        RS.MoveLast
        MsgBox RS.RecordCount
    End If

   DB.TableDefs.Delete name_dbf    ' отключиться

    RS.Close
    DB.Close
    Set TB = Nothing
    Set RS = Nothing
    Set DB = Nothing
    Exit Sub
err1:
    MsgBox Err.Description
    Set RS = Nothing
    Set TB = Nothing
    Set DB = Nothing
End Sub

Private Sub Command1_Click()
    Dim sFolder As String:          sFolder = App.Path
    Dim sTable_ As String:          sTable_ = "base_VFP"
    
    Dim cnn As ADODB.Connection:    Set cnn = New ADODB.Connection
    Dim rst As ADODB.Recordset:     Set rst = New ADODB.Recordset
    
    cnn.Provider = "VFPOLEDB.1"
    cnn.Properties("Data Source") = sFolder
    cnn.Open
    rst.Open "SELECT * FROM " & sTable_, cnn
    If Not rst.EOF Then
        MsgBox rst.Fields( 0 )
    End If
    
    rst.Close:  Set rst = Nothing
    cnn.Close:  Set cnn = Nothing
End Sub