----------CODE STARTS HERE---------------
<%
Queryname = Trim(Request.Form("Queryname"))
Sqlcode = Trim(Request.Form("Sqlcode"))

' function for avoiding error due to single quotes in sql text
Function SQLQuote(var)
If InStr(var, "'") <> 0 Then
var = Replace(var, "'", "''")
End If
SQLQuote = var
End Function

sDBName = "Provider=Microsoft.Jet.OLEDB.4.0; Data 
Source=E:\database\tcaoffers.mdb"
Set objDB = Server.CreateObject("ADODB.Connection")
objDB.Open sDBName

'Code to add a new record...
sql = "Insert Into queries ("
sql = sql & "Queryname,"
sql = sql & "Sqlcode"
sql = sql & ") "
sql = sql & "Values ("
sql = sql & "'" & SqlQuote(Queryname) & "',"
sql = sql & "'" & SqlQuote(Sqlcode) & "'"
sql = sql & ");"

Response.Write sql
ObjDB.Execute(sql)

objDB.Close
Set objDB = Nothing
%>
----------CODE ENDS HERE---------------

Somehow this is not working and I am getting following errors:

Insert Into queries (Queryname,Sqlcode) Values ('causers','SELECT * FROM 
eoffers WHERE State LIKE ''CA%'';'); 
Microsoft JET Database Engine error '80040e14' 

Syntax error in INSERT INTO statement. 

/tolladmin/insertquery.asp, line 28


Can any one help what is causing the error? Please.

Nagendra Pandey