请问DLL返回记录集的有关问题？高手帮忙

请教DLL返回记录集的问题？高手帮忙！
我写的一个测试组件代码如下：
Public   Function   getrs(ByVal   strsql   As   String)   As  

ADODB.Recordset
Dim   rs   As   New   ADODB.Recordset
Dim   conn   As   New   ADODB.Connection
Dim   strconn   As   String
strconn   =   "Provider=SQLOLEDB;Password=123;Persist  

Security   Info=True;User   ID=sa;Initial  

Catalog=A123;Data   Source=主机 "
      conn.Open   strconn
      rs.Open   strsql,   conn,   adOpenStatic
      Set   getrs   =   rs
'     rs.close                   '\\\   这里   rs   和conn   是否要关闭？
'       conn.Close
End   Function

调用如下:
Private   Sub   Command4_Click()
Dim   strrs   As   New   ADODB.Recordset
Dim   str   As   String
Dim   kk   As   abc.Class1

str   =   "select   *   from   table5 "
Set   strrs   =   kk.getrs(str)
End   Sub

我运都报错;(对象变量或with块变量未设定)
Set   strrs   =   kk.getrs(str)     这一句有错！

上面的rs   和conn   是否要关闭？那里我试了关闭和没关闭的

都不行！请高手帮忙!到底是那里的问题我都不知道！




------解决方案--------------------
Dim kk As new abc.Class1
缺少new