Vad har jag gjort för fel?

Jag har gjort en sida som ska lägga till lite data i en access-databas. Koden ser ut så här:

<%
option explicit

session.LCID = 1053

dim oConnect,username,message,subject,parentid,strSql,strDate

set oConnect = Server.CreateObject("ADODB.Connection")
oConnect.open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\wwwroot\hemsida\guestbook\forumdb.mdb"

username = session("username")
message = request.form("msg")
subject = request.form("header")
strDate = date
parentid = request.querystring("threadid")

strSql = "INSERT INTO messages (username,subject,message,date,parentid) VALUES ('" & username & "','" & subject & "','" & message & "','" & strDate & "'," & parentid & ");"

response.write(strSql)

[b]oConnect.execute(strSql)[/b]
oConnect.Close

response.redirect "main.asp"

%>

När jag kör sidan för jag felmeddelandet: "Syntax error in INSERT INTO statement.
/write.asp, line 36
"
jag lyckas inte lista ut vad som är fel. När jag skriver ut strängen mha response.write ser den ut att vara korrekt.

//André