Problemer med dato i SQL?

Jeg har:

Dim ConnA, rsA, strSglA, toDay

toDay = Day(Date()) & "." & Month(Date()) & "." & Year(Date())

If Request.Form("cmdSubmit") <> "" Then
    set ConnA = server.createobject("adodb.connection")
    DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSNtemp=dsntemp & "DBQ=" & server.mappath("../../data/newsletter/newsletter.mdb")
    ConnA.Open DSNtemp
       
    strSglA = "INSERT INTO newslettersSend (newsletterDate) VALUES ("& toDay &")"

    Set rsA = Server.CreateObject("ADODB.Recordset")
      Set rsA = ConnA.execute(strSqlA)

    rsA.Close()
    Set rsA = Nothing
    ConnA.Close()
    Set ConnA = Nothing
End If

Jeg får:
Microsoft OLE DB Provider for ODBC Drivers error '80040e0c'
Command text was not set for the command object.
/admin/newsletter/sendnyhedsbrev.asp, line 60

Hvor går det galt?