bytter om på md og dg

har følgende script

strFraDato    = CheckDato("Fra-Dato",Request.Form("FraDato"),"no")
'henter en dato fra kalender f.eks. 01-02-2003
    strTilDato    = CheckDato("Til-Dato",Request.Form("TilDato"),"no")
'henter en dato fra kalender f.eks. 05-02-2003


strFra = "#" & Year(strFraDato) & "-" & month(strFraDato) & "-" & day(strFraDato) & "#"
strTil = "#" & Year(strTilDato) & "-" & month(strTilDato) & "-" & day(strTilDato) & "#"
%>
<%

strtom = "o"

strSQL = "SELECT * From vagtplan where foerer <> '"& strtom &"' and dato >= #"&strFraDato&"#  and dato <= #"&strTilDato&"# order by dato"
set rs = conn.execute(strSQL)
%>

response.write - så skriver den datoen korrekt men

den henter fra db fra den 02-01-2003 til den 02-05-2003
istedet for den 01-02-2003 til den 05-02-2003

hvad gør jeg forkert hjælpppppppp