Public Function СписокДетейПоДереву(ИсточникДанных As String, СписокРодителей As String) As String
  Dim Список As String, Дети As String, Данные As ADODB.Recordset
  
  Set Данные = New ADODB.Recordset
  Список = СписокРодителей
  Дети = СписокРодителей
  Do
    Данные.Open "SELECT [Код], [Родитель] FROM [" & ИсточникДанных & "] WHERE [Родитель] IN (" & Дети & ")", CurrentProject.Connection, adOpenStatic
    If Данные.EOF Then Exit Do
    Дети = Данные![Код]
    Do
      Данные.MoveNext
      If Данные.EOF Then Exit Do
      Дети = Дети & "," & Данные![Код]
    Loop
    Список = Список & "," & Дети
    Данные.Close
  Loop
  Set Данные = Nothing
  
  СписокДетейПоДереву = Список
End Function

"[Код] IN (" & СписокДетейПоДереву("Таблица", Me![Поле]) & ")"

CREATE FUNCTION dbo.[Иерархия]()
RETURNS @Результат TABLE (Родитель int not null, Код int not null)
BEGIN 
DECLARE @Итерация int, @ДобавленоСтрок int
SET @Итерация =  0 
insert @Результат (Родитель, Код) select Родитель, Код from Таблица where Родитель<>- 1 
-- Значение -1 = 'корень' дерева. Можно, в принципе, использовать null ;)
set @ДобавленоСтрок=@@RowCount
while (@ДобавленоСтрок >  0 ) and (@Итерация <  100 )
begin
insert @Результат (Родитель, Код) 
select distinct т1.Родитель, т2.Код
from @Результат т1 inner join @Результат т2 on т1.Код = т2.Родитель
where (select count(*) from @Результат пп where пп.Родитель=т1.Родитель and пп.Код=т2.Код)= 0 
set @ДобавленоСтрок=@@RowCount
set @Итерация=@Итерация+ 1 
end
insert @Результат (Родитель, Код) select Код, Код from Таблица
RETURN
END

select Иерархия.Родитель, Sum(Данные.Сумма) Сумма
from Данные
inner join [Иерархия]() Иерархия on Иерархия.Код=Данные.Статья
group by Иерархия.Родитель