asp站内搜索问题，各位大大进来帮帮忙看下吧，谢谢了

如题，我的数据库是adbook.mdb
里面内容有管理员和通讯录两个表单，其中用的通讯录格式是
ID   df   姓名 性别 职务 内线 电话 部门
我的coon.asp代码是
<%  
dim db,conn,connstr
db="adbook.mdb"
set Conn = server.CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="& server.MapPath(""&db&"")
conn.Open connstr

%>

，我的index.asp里面的搜索代码是
<form name="form1" method="post" action="search.asp">
          <label><input type="text" name="textfield">
         </label><label><select name="select">
           <option value="df">地方</option>
           <option value="姓名">姓名</option>
           <option value="职务">职务</option>
           <option value="部门">部门</option>
           <option value="内线">短号</option>
           <option value="电话">电话</option>
         </select>
         </label>
                         <label>
                         <input type="submit" name="Submit" value="提交">
                        
                         </label>
       </form>
最后我里面search.asp的代码为
<!--#include file="conn.asp" --><title>search</title>  
这是您搜索到的结果：
<table width="100%" border="0" cellspacing="0" cellpadding="0">
   <tr>
     <td>地方</td>
     <td>姓名</td>
     <td>职务</td>
     <td>部门</td>
     <td>短号</td>
     <td>电话</td>
   </tr>
<%
key=request("textfield") '获取搜索的关键字
kind=request("select")    '获取搜索的类别

str="select * from [通讯录] where 1=1 "
if kind<>"" then  
str=str&" and "&kind&" like '%" & key & "%'"  
end if
set searchrs=server.createobject("adodb.recordset")
searchrs.open str,conn,1,1
     if not searchrs.eof then
     while not searchrs.eof
%>
   <tr>
     <td> <%=searchrs("df")%></td>
     <td> <%=searchrs("姓名")%></td>
     <td> <%=searchrs("职务")%></td>
     <td> <%=searchrs("部门")%></td>
     <td> <%=searchrs("内线")%></td>
     <td> <%=searchrs("电话")%></td>
   </tr>
<%
        searchrs.movenext
     wend

end if
searchrs.close  
set searchrs=nothing

%>
</table>
搜索之后出现错误
FROM 子句语法错误。

\search.asp, line 21
21行是searchrs.open str,conn,1,1
还有乱码字体
请问怎么解决？作为asp爱好者，谢谢各位了