错误提示：错误的参数个数或无效的参数属性值

[zhangjinwei]

Microsoft VBScript 运行时错误 错误 '800a01c2'

错误的参数个数或无效的参数属性值: 'rs'

E:\中国渔业网\WIREMESH\MEMBER\../inc/syscode.asp，行 90

下边是syscode文件的代码，大家帮忙看一下：

80 '过程名：listmember()
81 '作 用：显示用户信息(发布信息页显示)
82 '参 数：无
83 '=================================================
84 sub listmember()
85 dim rs,sql,userid,str,xinming
86 userid=session("user")
87 Set rs = Server.CreateObject("ADODB.Connection")
88 sql = "select * from company where User='" & userid &"'"
89 rs.open sql,conn,1,1
90 xingming=rs("xinming")
91 str="<TABLE cellSpacing=1 cellPadding=4 width=100% border=0><TR><TD width=25% align=right bgColor=#ffffff class=td>姓名：</TD>"
92 str=str & "<TD bgColor=#ffffff class=td style='PADDING-LEFT: 10px'> "%>
93 <%=rs("xinming")%><%
94
95 str= "</TD></tr></table>"
96 response.write str
97 end sub
98
99 %>

[liuyingzi]

Set rs = Server.CreateObject("ADODB.Recordset")

[xupiao]

Set rs = Server.CreateObject("ADODB.Connection") 建立鏈接對象
Set rs = Server.CreateObject("ADODB.Recordset") 數據集對象

[flying0108]

set conn=server.createobject("adodb.connection")
....
...


Set rs = Server.CreateObject("ADODB.recordset")
sql = "select * from company where User='" & userid &"'"
rs.open sql,conn,1,1

[zhangjinwei]

conndb.asp是这样写的
<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
dim conn
dim connstr
dim db
db="../date/daba.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr%>
但我的代码换楼上这位的代码后显的错误信息：
Microsoft JET Database Engine 错误 '80040e10'

至少一个参数没有被指定值。

E:\中国渔业网\WIREMESH\MEMBER\../inc/syscode.asp，行 89


其中userid的赋值语句为：
第86行，谢谢大家的帮助