Dim ayBas As Date, aySon As Date değişkenlerini tanımladım.

filtre kodunada alttakilerini ekledim.

ayBas = DateSerial(Year(Date), Month(Date - 1), 1)

aySon = DateSerial(Year(Date), Month(Date - 1) + 1, 0)

select case yede ekledim ve Combobox10 ada fitre yazdım.Yani combo10dan geçen ay seçilirse listelenir.

Case "Geçen Ay": rs.Open "select * from Ajandam where fix(" & alan & ") between  " & Fix(CDbl(CDate(ayBas))) & " and " & Fix(CDbl(CDate(aySon))) & "", baglan, 1, 1