Kan ikke styre datoen

Hej

Jeg har nedenstående script:
Dim rsSave
Set rsSave = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("***/Data.mdb")
rsSave.open "Kalender", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable
if IDa="" then
rsSave.addnew
else   
rsSave.find "ID=" & request.querystring("ID")
end if
rsSave("Akt") = request.form("Akt")
rsSave("Pfrodate") = "" & day(Pfrodate) & "-" & month(Pfromonth) & "-" & Request.Form("year") & ""
rsSave("Ptodate") = "" & day(Ptodate) & "-" & month(Ptomonth) & "-" & Request.Form("year") & ""
rsSave("year") = "" & Request.Form("year") & ""
rsSave.update
rsSave.close
set rsSave = Nothing

Dette script skal gemme en række i en database, hvor feltet hvor datoen skal gemmes ("Pfrodate" og "Ptodate") er sat til at være at datatypen "Dato og klokkeslæt" i databasen.
Problemet er så at de datoer der bliver gemt er ukorrekte i forhold til det som kommer fra formen...

- Jeg forstår det virkelig ikke...