Consultas SQL o q esta acontecendo? URGENTE

Estou fazendo uma consulta sql num banco de dados access em vb net.

Qdo eu coloco a seguinte instrução: "Select * from contato" funciona q é uma beleza, só que qdo eu coloco a instrução:

"Select * from contato where Month(DtNascto) = Month('9/1/2005') and Day(DtNascto) >= Day('9/1/2005') and Month(DtNascto) = Month('15/1/2005') and Day(DtNascto) <= Day('15/1/2005') order by day(DtNascto)"

não funciona...

Eu coloco essa mesma instrução na consulta do access e a resposta são 2 registros.

Alguem saberia me dizer o q esta errado?

O codigo que eu utilizo é o seguinto:

Private Sub Aniversariantes(Optional ByVal data = "")

Dim i As Integer = 0

Dim csql As String

Dim DataAntes As Date = Today

Dim DataDepois As Date = Today

If data = "" Then

data = Date.Today

End If

doc.Load(Application.StartupPath & "conf.xml")

If doc.Item("ConfiguracaoAgenda").Item("Aniversariantes").InnerText > 0 Then

DataAntes = DataAntes.AddDays("-" & doc.Item("ConfiguracaoAgenda").Item("Aniversariantes").InnerText)

DataDepois = DataDepois.AddDays(doc.Item("ConfiguracaoAgenda").Item("Aniversariantes").InnerText)

End If

Dim dt As New DataTable

Dim dtrow As DataRow

dt.Columns.Add("Nome")

dt.Columns.Add("DtNascto")

dt.Columns.Add("FoneRes")

dt.Columns.Add("FoneCel")

dt.Columns.Add("FoneCom")

dt.Columns.Add("Email")

dt.Columns.Add("Obs")

AbreDB()

sSql.Connection = cnn

sSql.CommandText = "Select * from contato where Month(DtNascto) = Month('" & DataAntes & "') and Day(DtNascto) >= Day('" & DataAntes & "') and Month(DtNascto) = Month('" & DataDepois & "') and Day(DtNascto) <= Day('" & DataDepois & "') order by day(DtNascto)"

sSql.CommandType = CommandType.Text

dr = sSql.ExecuteReader

While dr.Read

i = i + 1

Dim dataformatada As Date

dataformatada = dr("DtNascto")

dtrow = dt.NewRow()

dtrow.Item("Nome") = dr("Nome")

dtrow.Item("DtNascto") = Convert.ToString(FormatDateTime(dataformatada, DateFormat.ShortDate))

dtrow.Item("FoneRes") = dr("FoneRes")

dtrow.Item("FoneCel") = dr("FoneCel")

dtrow.Item("FoneCom") = dr("FoneCom")

dtrow.Item("Email") = dr("Email")

dtrow.Item("obs") = dr("Obs")

dt.Rows.Add(dtrow)

End While

dgAniversariantes.DataSource = dt

DesabilitaBotoes()

fraAniversariantes.Visible = True

cnn.Close()

If i > 0 Then

MessageBox.Show("Na sua lista de contatos existe " & i & " aniversariante(s)!")

ElseIf i = 0 Then

If data = Date.Today Then

MessageBox.Show("Não tem nenhum aniversariante na sua lista de contatos para hoje!")

fraAniversariantes.Visible = False

HabilitaBotoes()

Else

MessageBox.Show("Não tem nenhum aniversariante na sua lista de contatos para a data escolhida!")

fraAniversariantes.Visible = False

HabilitaBotoes()

End If

End Sub

Obrigado desde já