' Перенос данных
  Dim Src As ADODB.Recordset
  Dim Dst As ADODB.Recordset

 ' Открываем набор данных с источника
  Set Src = New ADODB.Recordset
  With Src
    .CursorType = adOpenForwardOnly
    .LockType = adLockReadOnly
    .Open "X", CurrentProject.BaseConnectionString, , , adCmdTable + adAsyncFetch
  End With

 ' Открываем набор данных с назначения
  Set Dst = New ADODB.Recordset
  With Dst
    .CursorType = adOpenForwardOnly
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "X", dbPIConnection, , , adCmdTable + adAsyncFetch
  End With
  
  ' Копируем данные
  Dim v As Variant
  While Not Src.EOF
    Dst.AddNew
    For Each v In Src.Fields
      Dst.Fields(v.Name) = v.Value
    Next
    Dst.Update
    Src.MoveNext
  Wend
      
  Src.Close
  Dst.Close
  Set Src = Nothing
  Set Dst = Nothing

INSERT INTO y  IN 'bla-bla.mdb' SELECT x.* FROM x;