窗体form、类模块cls、模块bas三者之间的数据交换有关问题

窗体form、类模块cls、模块bas三者之间的数据交换问题
我现在类模块cls中定义了以下功能模块

'创建ADO连接并打开
Private   Function   CreateConnection(ByVal   InputFileName   As   String)
        Dim   ConStr   As   String         '连接字符串
        Set   cn   =   New   ADODB.Connection
       
        cn.CursorLocation   =   adUseClient
        cn.Provider   =   "Microsoft.Jet.OLEDB.4.0; "
        ConStr   =   "Data   Source= "   &   App.path   &   "\mdb\ "   &   InputFileName
        cn.Open   ConStr
End   Function
'调用数据记录功能
Function   ShellData(ByVal   FileName   As   String)  
    CreateConnection   (FileName)
    Dim   rst   As   ADODB.Recordset
    Set   rst   =   New   ADODB.Recordset
    rst.CursorLocation   =   adUseClient
    rst.Open   "SELECT   DISTINCT   *   FROM   Shell ",   cn,   adOpenForwardOnly,   _
                        adLockBatchOptimistic,   adCmdText
    Debug.Print   rst!Dn
End   Function


我的问题是在窗体form条件下
如何读取数据在类模块中定义好的记录值。
sub   Form1_load()
    '如何调用类块并返回相应的记录值
    debug.print   rst!Dn
End   Sub

------解决方案--------------------
Function ShellData(ByVal FileName As String) As String
CreateConnection (FileName)
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open "SELECT DISTINCT * FROM Shell ", cn, adOpenForwardOnly, _
adLockBatchOptimistic, adCmdText
ShellData = gadoRs( "FILENUM ")
End Function
调用就可以了啊。不知道是不是没有理解对lz的问题。