В какую такую временную таблицу?

ИМХО
Пока срабатывет Ca.Execute rsLg.Open забирает данные с пустой таблицы предврительно очищенной при помощи Mconn.Execute ("DELETE arh_rep.* FROM arh_rep")

rsLg.Open ("SELECT Year([arh_rep]![DataR]) as ГОД, Month([arh_rep]![DataR]) as Месяц, arh_rep.NameKat AS Категория, arh_rep.KodN AS Код, arh_rep.NameN AS Начисление, arh_rep.ObPl AS Площадь, arh_rep.Propis AS Прописано, arh_rep.Tarif AS [Тариф(осн)], arh_rep.TarifI AS [Тариф(доп)], arh_rep.Shc_new AS Счетчик, IIf([arh_rep]![Tip]='+',[arh_rep]![SummaI],0) AS Начислено, IIf([arh_rep]![Tip]='-',[arh_rep]![SummaI],0) AS Оплачено, IIf([arh_rep]![Tip]='s',[arh_rep]![SummaI],0) AS Субсидии FROM arh_rep ORDER BY arh_rep.DataR"), Mconn

adOpenKeyset, adLockOptimistic

Ca.Execute ("INSERT INTO arh_rep IN'" + App.Path + "\Data\kvartplata.amd' SELECT Adding.* FROM Adding WHERE (((Adding.KodKv)=" + Номер + "));")

'чистим arh_rep
Mconn.Execute ("DELETE arh_rep.* FROM arh_rep")
'Задаем свойства FileListBox
Lic.File1.Path = App.Path + "\data\Arhiv\"
Lic.File1.Pattern = "*.amd"
'перебор имен файлов в цыкле
For j =  0  To Lic.File1.ListCount -  1 
'MsgBox (File1.List(i))
'Подключаемся к архиву и копируем из аддинг нужные записи по Filter.Nm


новый коннект открыт "Ca"
подключились к J-ой  File1.List(i) БД по списку
потом:
Ca.Execute ("INSERT INTO arh_rep IN'" + App.Path + "\Data\kvartplata.amd' SELECT Adding.* FROM Adding WHERE (((Adding.KodKv)=" + Номер + "));")
закрываем коннект "Са"

Ca.Close

next J

после всего этого строим запрос через Mconn который остается все время открытым.

SELECT Adding.* FROM Adding 

Mconn.Execute ("INSERT INTO arh_rep SELECT Adding.* FROM Adding IN '"+Имя_файла+"' WHERE (((Adding.KodKv)=" + Номер + "));")

Mconn.Execute ("INSERT INTO arh_rep SELECT Adding.* FROM Adding IN '" + App.Path + "\Data\arhiv\" + strSur + "' WHERE (((Adding.KodKv)=" + Номер + "));")