Dato format problem

slut = date()
ar = year(slut)
dag = day(slut)
if len(dag) = 1 then
dag = "0" & dag
end if
moned = month(slut)
if len(moned) = 1 then
moned = "0" & moned
end if
dato = ar & "-" & moned & "-" & dag

og så tilsvarende med din start dato

Der må være en lidt pænere metode til at gøre det på?

Fandt denne metode til for at det virkede :)
fraDato = Year(fraDato) & "-" & Month(fraDato) & "-" & Day(fraDato)
tilDato = Year(tilDato) & "-" & Month(tilDato) & "-" & Day(tilDato)
Set rsMaal= Conn.Execute("select * from maal where brugerid = " & session("ID") & " and dato >= #" & fraDato & "# and dato <= #" & tilDato & "# ORDER BY dato desc")

????? hvad i alverden her det med dit spørgsmål at gøre