sql og dato - smider 0 væk

i min db står datoen således 01-04-2004 og der er en post på denne dato

når jeg så henter vil hente poster fra den dato med følgende

strdagsdato = FormatDateTime(Now, vbShortDate)
strSQL = "Select * From meddelser where dato = #" & strdagsdato & "#"

så henter den intet

men sætter jeg den således

strdagsdato = FormatDateTime(Now, vbShortDate)
strSQL = "Select * From meddelser"

så henter den posten men skriver datoen 1-4-2004

og den er jo helt gal når det er det øverste script jeg skal bruge ????

har så prøvet med dette

<%
Function newdato(Dato)
Dim Aar, Maaned, Dag, Temp
  Aar = DatePart("YYYY", Dato)
  Maaned = DatePart("M", Dato)
  Dag = DatePart("D", Dato)
 
  If Dag < 10 Then
    Temp = "0" & Trim(Dag)
  Else
    Temp = Trim(Dag)
  End If
  Temp = Temp & "-"
  If Maaned < 10 Then
    Temp = Temp & "0" & Trim(Maaned)
  Else
    Temp = Temp & Trim(Maaned)
  End If
  Temp = Temp & "-" & Aar

  newdato = Temp
End Function

strdagsdato2 = newdato(day(now())&"-"&month(now())&"-"&year(now()))

strdagsdato = FormatDateTime(Now, vbShortDate)

strSQL = "Select * From meddelser where dato = " & strdagsdato2

men det giver det samme.

den læser åbenbar sql uden 0 foran ????????