Помогите сделать правильно

select [№ недели], Sum([аванс]) as суммаАванса,Sum([остаток]) as суммаОстатка

from моятаблица
group by  [№ недели]

SELECT [№ Неделя] AS НомерНедели, Sum(Аванс) AS СуммыАвансов, Sum(Остаток) AS СуммыОстатков 
FROM Таблица
GROUP BY [№ Неделя]

Public Function Неделя(d As Date) As String
Dim Y As Integer
    Y = Year(d)
    Неделя = Y & Format(DateDiff("ww", _
    DateSerial(Y, 1, 1), d, vbMonday, vbFirstJan1) + 1, "\#00")
End Function