VBS对象引用赋值？？？？？高分求解

[pentium8285]

Class kkk
function conn_sql(sql)
dim conn
dim connstr
dim db
'设置数据库路径
db="*.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
set conn_sql=rs
end if
set rs=nothing
set conn=nothing
end function
dim test
set test=new kkk
sql="select * from jj"
test.conn_sql sql
'.conn_sql方法：输入一个sql查询语句，将查询的结果以一个记录集的形式返回
end class

现在问题是，我在使用test类的conn_sql方法时，用什么办法可以返回这记录集？？？
用set myrs=test.conn_sql sql????? 好象不可以

[pentium8285]

大家帮帮忙？

[nchen123]

试试，
....
set conn_sql = rs
end funtion