Fejl ved database insert

Jeg har en funktion til at kaste SQL mod databasen:
function insertBySQL (sql)
i_dbConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "R:\Inetpub\wwwroot\Calendar\Cal.mdb"
Set i_objConn = CreateObject("ADODB.Connection")
i_objConn.Open i_dbConnection
Set i_objRS = CreateObject("ADODB.Recordset")
strQuery = sql
msgbox strQuery
i_objRS.Open strQuery, i_objConn, 0, 1
end function

SQL'en jeg bruger er "insert into calendar (subject, message, day, month, year) values ('Fest på VB','Fest på VB',8,10,2004);"

Hvis jeg åbner access databasen og udfører en forespørgsel, bliver rækken indsat korrekt, men bruger jeg mit script får jeg:

line 79 (i_objRS.Open strQuery, i_objConn, 0, 1)
char 1
Syntax error in INSERT INTO statement
Code 80040E14
Source MS JET database Engine

HVad er fejlen?