昇顺财务管理咨询:asp+access 错误类型Microsoft JET Database Engine (0x80040E14)

错误类型：Microsoft JET Database Engine (0x80040E14)
无效的 SQL语句；期待 'DELETE'、'INSERT'、'PROCEDURE'、'SELECT'、或 'UPDATE'。
/MasterASP/student/utility/const.asp, 第 39 行
<%
Response.Expires = 0

'定义数据库地址变量
dim db
db="../data/study.mdb"

'******************************************************************
'执行sql语句，不返回值,sql语句最好是如下：
'update 表名 set 字段名=value,字段名=value where 字段名=value
'delete from 表名 where 字段名=value
'insert into 表名 (字段名,字段名) values (value,value)
'******************************************************************
Sub ExecuteNonQuery(sql)
dim conn
dim connstr
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
connstr = connstr & Server.MapPath(""&db&"")
conn.Open connstr
conn.execute sql
conn.close
set conn=nothing
End Sub

'*******************************************************************
'执行select语句，返回recordset对象。该对象只读。也就是不能更新
'*******************************************************************
Function ExecuteQuery(sql)
dim conn
dim connstr
dim rcs
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
connstr=connstr & Server.MapPath(""&db&"")
conn.Open connstr
Set rcs = Server.CreateObject("ADODB.Recordset")
rcs.open sql,conn,1,1
Set ExecuteQuery = rcs
End Function

'*******************************************************************
' 弹出对话框
'*******************************************************************
Sub Alert(message)
message = replace(message,"'","\'")
Response.Write ("<script>alert('" & message & "')</script>")
End Sub

'*******************************************************************
' 返回上一页，一般用在判断信息提交是否完全之后
'*******************************************************************
Sub GoBack()
Response.write ("<script>history.go(-1)</script>")
Response.write ("<script>Location.refresh()</script>")
End Sub

'*******************************************************************
' 重定向另外的连接
'*******************************************************************
Sub Go(url)
Response.write ("<script>location.href('" & url & "')</script>")
End Sub

.........