ASP数据库操作封装问题

[qlhycf]

上个问题己经找到原因了.不过在下面操作还是有很多问题:
vb:
Public Function sqlconndb() As ADODB.Connection
Dim conn As ADODB.Connection
ConnStr = "Provider = Sqloledb; User ID = " & DbUser & "; Password = " & DbPass & "; Initial Catalog = " & DbName & "; Data Source = " & SqlLocalName & ";"
Set conn = New ADODB.Connection
conn.Open ConnStr
Set sqlconndb = conn
End Function

Public Function Execute(sqlstr As String) As ADODB.Recordset
If IsObject(conn) Then Response.Write (sqlstr)
Set Execute = New ADODB.Recordset
Execute.Open sqlstr, conn, adOpenKeyset, adLockPessimistic
End Function

asp:
<%
Set zjzs=server.CreateObject("sqlconntest.query")
Set conn=zjzs.sqlconndb()
Set rs = zjzs.execute("select * from admin")
response.write rs(0)
%>
老是报错:ADODB.Recordset '800a0cc1'

在对应所需名称或序数的集合中，未找到项目。

[完整的代码见:http://community.csdn.net/Expert/TopicView1.asp?id=4437822]

[rebacca1620]

是不是记录集打开的方式问题呢？
作server.CreateOjbect()方法试试吧：）

[starytx]

字段名写错了，检查一下你写的字段名，数据库里是否有

[qlhycf]

我用的是rs(0),怎么会有字段写错

[chjpeng]

Set rs = zjzs.execute("select * from admin")
if not rs.eof then
response.write rs(0)
else
response.write "no data"
end if