[أبو عمر]

dim mymonth as integer
mymonth=month(now)
select * from mytable where month(Field) like #" & Mymonth & "#"

تقريبا هذه الصيعة تمشي