Tom dato til access db

Hej

Jeg har en form, hvor der udfyldes nogle tekst felter, samt 3 dato felter.
Alt fungere fint hvis dato felterne er udfyldt. Hvis dato felterne ikke er udfyldt virker det ikke. Dato felterne i DB er ikke obligatoriske. DB er access2000. Jeg sletter IE cache for hver ændring jeg laver.

Nedenfor er den kode, der validere, min form og skal lave Insert i db.

Venligst
Gunnar


<% response.buffer = true
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../Amtspatient.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN

'Dato formatering:
Function FormatDato(theDate)
    FormatDato = month(thedate) & "-" & day(thedate) & "-" & year(thedate)
End Function

DIM afvistdato, hdato, tilbdato

IF request.form("henvisdato") = "" THEN
    hdato = Null
Else
    hdato = request.form("henvisdato")
    hdato = FormatDato(hdato)   
End if

IF request.form("afvist") = "" THEN
    afvistdato = Null
Else
    afvistdato = request.form("afvist")
    afvistdato = FormatDato(afvistdato)
End if

IF request.form("tilbagetrukket") = "" THEN
    tilbdato = Null
Else
    tilbdato = request.form("tilbagetrukket")
    tilbdato = FormatDato(tilbdato)
END IF


sql = "Insert Into patient(CPR, Fornavn, Efternavn, AMT, Andet, Speciale, Diagnose, Henvisdato, Afvist, Tilbagetrukket) Values ('"
sql = Sql & request.form("CPR") & "','"
sql = sql & request.form("Fornavn") & "','"
sql = sql & request.form("Efternavn") & "','"
sql = sql & request.form("AMT") & "','"
sql = sql & request.form("Andet") & "','"
sql = sql & request.form("Speciale") & "','"
sql = sql & request.form("Diagnose") & "','"
sql = sql & hdato & "','"
sql = sql & afvistdato & "','"
sql = sql & tilbdato & "')"
Set rs = Conn.Execute (sql)
Conn.Close
response.redirect ("admin.asp")

%>