aps函数中如何返回数据库的对象？

[再-接-再-厉]

class apply_db
dim sql
sub Class_Initialize()
set conn=server.CreateObject("adodb.connection")
dbfile="container.accdb"
connstr="Provider=Microsoft.ace.oledb.12.0;Persist Security Info=False;Data Source="&server.MapPath(getdbfile())
conn.open connstr
end sub

sub Class_Terminate()
conn.close
end sub

function return_db(sql) as adodb.recordset as adodb.recordset '这里报错，as没有结束，不明白
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,3
return_db=rs
end function

end class

set a = new apply_db
set db = a.return_db("select * from [container]")
response.Write db.eof
set a=nothing


不加as可以编译过，但是返回来db用不了eof，recordcount等，无法遍历。有没有高手给解决下，先谢谢了！尝试用数组在函数内赋值，但是数组要求长度，动态数组赋值又报错，难道asp不能这样写吗？

[Go 旅城通票]

function return_db(sql) set rs = server.CreateObject("adodb.recordset") rs.open sql,conn,3,3 set return_db=rs end function 对象要用set来设置

[再-接-再-厉]

恩，加了set就好用了，多谢了