Dim rstDst As DAO.Recordset, rstSrc As DAO.Recordset
Dim rstChild As DAO.Recordset

Set rstDst = CurrentDb.OpenRecordset("ТаблицаПриёмник")
Set rstSrc = CurrentDb.OpenRecordset("ТаблицаИсточник")
    Do Until rstSrc.EOF
        rstDst.AddNew
        '...тут ещё какие поля копируем
        Set rstChild = rstSrc.Fields(5).Value 'набор записей из поля ТаблицаИсточник
            With rstDst.Fields(5).Value 'набор записей из поля ТаблицаПриёмник
                    Do Until rstChild.EOF
                        .AddNew
                        .Fields(0) = rstChild.Fields(0)
                        .Update
                        rstChild.MoveNext
                    Loop
                Set rstChild = Nothing
            End With
        rstDst.Update
        rstSrc.MoveNext
    Loop
rstSrc.Close
Set rstSrc = Nothing
rstDst.Close
Set rstDst = Nothing