Funktionen IsDate fejler

Jeg får fejlen "Typer stemmer ikke overens: '[string: "16-16-2004"]'" på linien 3 herunder.

IF Request.ServerVariables("REQUEST_METHOD") = "POST" THEN
Response.Write IsDate(Request.Form("dato"))
    IF IsDate(Request.Form("dato")) = false OR Month(Request.Form("dato"))>12 THEN
        datoFejl = "<font color='red'>Du har indtastet en forkert dato. Dato skrives på formen DD-MM-YYYY.</font>"
    ELSE
        formDato = Request.Form("dato")
        formDato = Year(formDato) & "-" & Month(formDato) & "-" & Day(formDato)
        strSQL = "SELECT dato FROM dagsrapport WHERE dato = #" & formDato & "# AND brugerId = " & Session("brugerId")
        Set rsDato = Conn.Execute(strSQL)
        IF NOT rsDato.EOF THEN
            datoExist = "<font color='red'>Du har allerede oprettet en dagsrapport for d. " & FormatDateTime(rsDato("dato"), vbLongDate) & "</font>"
        ELSE
            dato =  Year(formDato) & "-" & Month(formDato) & "-" & Day(formDato)
            strSQL = "INSERT INTO dagsrapport (dato, brugerId, tidsforbrug, antalOpkald, antalBeslutningstagere, antalMoeder) VALUES (#" & dato & "#,'" & Session("brugerId") & "','" & Request.Form("tidsforbrug") & "','" & Request.Form("antalopkald") & "','" & Request.Form("antalBeslutningstagere") & "','" & Request.Form("antalMoeder") & "')"
            Conn.Execute(strSQL)
            rapportgemt = true
        END IF
    END IF
END IF

===========================================================


En lidt variation af koden, giver dette problem:
Typer stemmer ikke overens: 'formDato'.

IF Request.ServerVariables("REQUEST_METHOD") = "POST" THEN
    formDato = Request.Form("dato")
    dato = Year(formDato) & "-" & Month(formDato) & "-" & Day(formDato)
    IF IsDate(dato) = false OR Month(dato)>12 THEN
        datoFejl = "<font color='red'>Du har indtastet en forkert dato. Dato skrives på formen DD-MM-YYYY.</font>"
    ELSE
        strSQL = "SELECT dato FROM dagsrapport WHERE dato = #" & dato & "# AND brugerId = " & Session("brugerId")
        Set rsDato = Conn.Execute(strSQL)
        IF NOT rsDato.EOF THEN
            datoExist = "<font color='red'>Du har allerede oprettet en dagsrapport for d. " & FormatDateTime(rsDato("dato"), vbLongDate) & "</font>"
        ELSE
            strSQL = "INSERT INTO dagsrapport (dato, brugerId, tidsforbrug, antalOpkald, antalBeslutningstagere, antalMoeder) VALUES (#" & dato & "#,'" & Session("brugerId") & "','" & Request.Form("tidsforbrug") & "','" & Request.Form("antalopkald") & "','" & Request.Form("antalBeslutningstagere") & "','" & Request.Form("antalMoeder") & "')"
            Conn.Execute(strSQL)
            rapportgemt = true
        END IF
    END IF
END IF