我不知道哪里出错，请大家指点一下。代码如下：
<%@ language=VBScript %>
<% 
set conn=server.CreateObject("adodb.connection")
connstr="dbq="&server.MapPath("jieguo.mdb")&";driver={microsoft access driver (*.mdb)};"
conn.open connstr

set rec=server.CreateObject("adodb.recordset")  
sqlstr="select * from answer"

rec.open sqlstr,conn,2,3     
rec.addnew

rec("answer1")=request.form("answer1")
rec("answer2")=request.form("answer2")
rec("answer3")=request.form("answer3")
rec("answer4")=request.form("answer4")
rec("answer5")=request.form("answer5")

rec.update

rec.close
conn.close
set rec=nothing
set conn=nothing 
%>