Hente records for en bestemt måned og dato

Jeg har nogle dato poster i en database som jeg gerne vil hente ud så måneden svare til dags måned samt år svarer til dags år.

Mine datoer står som xxxx-xx-xx i databasen hvorfor jeg er nødt til at gøre følgende:

aar = Mid(RSArr("Visning"),1,4)
maanede = Mid(RSArr("Visning"),6,2)

Min sql skal naturligvis indeholde en where sætning som siger noget i retning af:

SQL = "Select * from tabel where "&aar&" = "&VarDagsMaaned&" AND.....osv
Do while not RS.EOF....osv

Men det kan den naturligvis ikke da jeg ikke har defineret recordsættet RS endnu.

Mit spørgsmål er derfor hvordan skal jeg lave min kode således at jeg kan hente de datoer i databasen der svarer til dags måned og til dags år.