大虾们，帮帮忙，我实在搞不懂了
语句   是这样的：
<%
dim   database,conn,connstr
database= "db/db.mdb "
set   conn=server.CreateObject( "ADODB.Coection ")
connstr= "provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "&Server.MapPath(database)
conn.open   connstr
str= "男 "
Set   rs=Server.CreateObject( "ADODB.RecodeSet ")
sql= "Select   id   from   [user]   where   usersex   like   '% "&str& "% ' "
rs.open   sql,conn,1,3
if   rs.eof   or   rs.bof   then
response.write( "alert( '没有包含关键字   男   的记录！ ') ")
response.end
else
do   while   not   rs.eof
%>
<%=rs( "id ")%> .&nbsp;&nbsp; <%=rs( "username ")%> <br>
<%
rs.movenext
loop
end   if
rs.close
set   rs=nothing
conn.close
set   conn=nothing
%>


运行之后就这样提示了：
错误类型：
Server   对象,   ASP   0177   (0x800401F3)
无效的类别字符串  
/mysite/index.asp,   第   12   行


浏览器类型：
Mozilla/4.0   (compatible;   MSIE   7.0;   Windows   NT   5.1)

------解决方案--------------------
ADODB.Coection
这个是什么？
------解决方案--------------------
Set Conn=Server.CreateObject( "ADODB.CONNECTION ")
Set Rs=Server.CreateObject( "ADODB.RecordSet ")
------解决方案--------------------
Set rs=Server.CreateObject( "ADODB.RecodeSet ")
RecodeSet打错了
应该是recordset掉了个r