Busca Por Data No Db

E ae galera?!

Pesquisei no fórum, mas realmente n achei exatamente o q eu queria por isso estou postando.

Pra quem já sabe isso eh coisa simples!!

Estou com um formulário onde o internauta faz a busca das notícias por data:

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%"> <tr> <td height="30"> <p align="right"><font face="Arial" style="font-size: 8pt"> Dia:</font></td> <td> <select name="dia" style="font-family: arial; font-size: 8 pt; color: #000; font-weight:700"> <option value="" selected>-</option> <% For intDay = 1 To 31 %> <option value="<% = intDay %>" ><% = intDay %></option> <% Next %> </select></td> <td> <p align="right"><font face="Arial" style="font-size: 8pt"> Mês:</font></td> <td> <select name="mes" onChange="javascript: calculardias();" style="font-family: arial; font-size: 8 pt; color: #000; font-weight:700"> <% For intMonth = 1 To 12 %> <option value="<% = intMonth %>" <% If Month(Now()) = intMonth Then Response.Write(" selected") %>><% = MonthName(intMonth) %></option> <% Next %> </select></td> <td> <p align="right"><font face="Arial" style="font-size: 8pt"> Ano:</font></td> <td> <select name="ano" onChange="javascript: calculardias();" style="font-family: arial; font-size: 8 pt; color: #000; font-weight:700"> <% For intYear = Year(Now()) - 2 To Year(Now())%> <option value="<% = intYear %>" <% If Year(Now()) = intYear Then Response.Write(" selected") %>><% = intYear %></option> <% Next %> </select></td> </tr> </table>

Achei algumas coisas na pesquisa e testei, mas n deu certo:

Sql = "SELECT Noticias.Id AS Id, " & _ "Noticias.Secao, " & _ "Secao.Descricao AS Secao, " & _ "Secao.Pasta AS Pasta, " & _ "Noticias.Chamada AS Chamada, " & _ "Noticias.Previa AS Previa, " & _ "Noticias.Data AS Data " & _ "FROM Secao INNER JOIN Noticias " & _ "ON Secao.Cod=Noticias.Secao WHERE "If Dia = "" ThenElseSql = Sql & "DAY(Noticias.Data) = " & Dia & " AND "End IfSql = Sql & "MONTH(Noticias.Data) = " & Mes & " AND YEAR(Noticias.Data) = " & Ano & "Sql = Sql & "ORDER BY Noticias.Data DESC;"

Será q alguém pode me informar qual o metódo correto para executar isso?

P.s.: Ah, o internauta se quiser pode n selecionar nenhum dia, no caso, assim buscando todos os dias daquele mês.

Abraço e obrigado pela atenção!!