ODBC 驱动程序不支持所需的属性。 求解！跪求

源代码<%
dim rs
 set rs = server.CreateObject("ADODB.Recordset")


 rs.Open "select * from Comment where Topic = "&request.QueryString("topic")&"or Id = "&request.QueryString("topic")&" order by topic asc,date desc",conn,1  这就是第25行


 conn.execute("Update Comment set browse = browse + 1 where id = "&request.QueryString("topic"))
 
 Dim pageNo,pageS
 if request.QueryString("pageNo") = "" then
 pageNo = 1
 else
 pageNo=cInt(request.QueryString("pageNo"))
 end if
 
 rs.pageSize = 5
 pageS = rs.pageSize
 rs.Absolutepage =  pageNo
 if pageNO=1 then
%>
<table width="98%" border="0" cellpadding="5" cellspacing="1" bgcolor="#666666">
  <tr>
    <td class="td1">标题：<% =myReplace(rs("Title"))%></td>
  </tr>
</table>
<%end if
do while not rs.eof and pageS>0
%>
<table width="98%" border="0" cellpadding="5" cellspacing="1" bgcolor="#666666">
<tr bgcolor="#FFFFFF">
<td width="120" valign="top">
<% dim rs2
 set rs2 =server.CreateObject("ADODB.Recprdset")
 rs2.open "select * from User where name ="&rs("Author")&",".conn
%>

Access  SQL输出 提示语法错误（操作符丢失）在 Topic = "&request.QueryString("topic")&"or Id = "&request.QueryString("topic")&"中

求高手帮忙！跪求！