Ado sorgusunda sütuna göre sıralama

[acar6783]

Hayırlı akşamlar,
Aşağıdaki kodlara neler eklemeliyim ki. YIL ve AY koşuluna koşuluna göre PİVOTtaki gibi yılı ve ayı sütuna yayıp diğer verileri de altına getirebilirim?

Sorgu = "SELECT AD,GİDERYERİ,SUM(TUTAR)  FROM  [GiderRaporu] WHERE ŞUBEKODU = '" & ŞUBE & "' "
    Sorgu = Sorgu & " AND YIL= '" & .YILLAR & "' GROUP BY AD,GİDERYERİ"
        rs.Open Sorgu, Con, 1, 3