Dim file_mdb1 As String:  file_mdb1 = App.Path & "\db1.mdb"
Dim file_mdb2 As String:  file_mdb2 = App.Path & "\db2.mdb"

Dim tablica_1 As String:  tablica_1 = "Таблица"
Dim tablica_2 As String:  tablica_2 = "ТаблицаPLUS"

Dim db1 As ADODB.Connection:   Set db1 = New ADODB.Connection
Dim tb1 As ADODB.Recordset:    Set tb1 = New ADODB.Recordset
 
db1.Provider = "Microsoft.Jet.OLEDB.4.0"
db1.Open file_mdb1, "Admin"
tb1.Open tablica_1, db1, adOpenDynamic, adLockOptimistic

Dim db2 As ADODB.Connection:   Set db2 = New ADODB.Connection
Dim tb2 As ADODB.Recordset:    Set tb2 = New ADODB.Recordset
 
db2.Provider = "Microsoft.Jet.OLEDB.4.0"
db2.Open file_mdb2, "Admin"
' tb2.Open tablica_2, db2, adOpenDynamic, adLockOptimistic
tb2.Open "SELECT * FROM " & tablica_2, db2, adOpenDynamic, adLockOptimistic   ' МОЖНО И ЗАПРОСОМ ВЫБРАТЬ ЗАПИСИ

Dim i As Double
Do Until tb2.EOF
     i = i +  1 
     tb1.AddNew
     tb1![pole] = "" & tb2![pole]
     tb1.Update
     tb2.MoveNext
Loop
               
tb1.Close:  Set tb1 = Nothing
db1.Close:  Set db1 = Nothing
tb2.Close:  Set tb2 = Nothing
db2.Close:  Set db2 = Nothing

MsgBox "всего ДОБАВЛЕНО " & Str(i), vbOKOnly

Dim i As Double, x As Integer
Do Until tb2.EOF
    i = i +  1 
    tb1.AddNew
    For x =  0  To tb2.Fields.Count -  1 
        tb1.Fields(x) = tb2.Fields(x)
    Next
    tb1.Update
    tb2.MoveNext
Loop