加厚紧密胶框图片:ASP网页出错0x80040E37, 求救

麻烦高手帮我看看吧, 不断出错. 多谢了!!
<%
dim conn,mdb,connstr
mdb=server.mappath("list.mdb")
connstr="DRIVER=Microsoft Access Driver (*.mdb);DBQ="&mdb
set conn=server.createobject("adodb.connection")
conn.open connstr

sql="select * from list where Name like '%'&'"&keyword&"'&'%'"

Set rs=conn.execute(sql) <<--- 提示这一行出错
total=rs.recordcount
%>

<p><font size="3">你查询的是</font>：<font color="0000ff"><%=keyword%></font></p>

<%
If rs.eof and rs.bof Then
response.write "对不起,没有找到您要找的资料,请输入其它关键词重新查找!"
End If
%>
<table width="75%" border="0">
<% while not rs.eof %>
<tr bgcolor="#FFFFCC">
<td><font color="#000066" size="2"><b><%response.write (rs)%></b></font></td>
<td><font color="#000066" size="2"><b>(<%response.write (English)%>)</b></font></td>
</tr>
<tr>
<td colspan="2"><font size="2"> <%response.write (Description)%></font></td>
</tr>
<% rs.movenext
wend
%>
<%
set rs=nothing
set conn=nothing
%>
改过了还是不行啊..
----------------------
大伙的意见都是一样的呀, 但为啥我照抄还是一样的错误呢.
我用的是XP Home版下装的2000的IIS, 这个有影响么?