Fejl i udtræk fra database

Hej,

Jeg forstår det ikke jeg har tilføjet 50 poster i min access database til feltet dag, som er af typen dato/tid. Dette er gjort 100% ens.

Når jeg kører flg. kode:

  md_nu = Month(Now)
  yy_nu = Year(Now)
  dato_d_1 = DateSerial(yy_nu, md_nu, 1)
  dato_n_m = DateAdd("m", 1, dato_d_1)
  DaysInMonth = DateDiff("d", dato_d_1, dato_n_m)     
           
  set rs = server.CreateObject("ADODB.Recordset")

  for I = 1 to daysInMonth
    sqlStrDate = i & "-" & md_nu & "-" & yy_nu
    sqlStrDate = cdate(sqlStrDate)
    strSQL = "SELECT count(*) as HitsDay From Stat where Dag=#" & sqlStrDate & "#"
    set rs = conn.execute(strSQL)
    response.Write(rs("HitsDay") & "<br><br>")
next



Så skriver den 50 ved alle datoer undtagen:

01,02,04,05,06,07,08,09,10,11,12

alle andre dage får jeg det korrkete output som er 50!

Jeg har prøvet at slette dataen i databasen og oprettet dem igen!!

Nogen der kan hjælpe?!?!