ADODB.Connection的有关问题

ADODB.Connection的问题
如DLL
Public   Sub   ST   (sCn   As   ADODB.Connection)
    from1.show
end   sub

程序怎么样传递SCN呢？
Dim   Cn   As   ADODB.Connection

Private   Sub   Form_Load()
Set   Cn   =   New   Connection
  StrCn   =   "Provider=SQLOLEDB.1;Password=lASD;Persist   Security   Info=True;User   ID=sa;Initial   Catalog=QSD;Data   Source=ASDAS "
 
  Cn.Mode   =   adModeReadWrite
  Cn.CursorLocation   =   adUseClient
  Cn.CommandTimeout   =   1800
  Cn.Open
End   Sub

Private   Sub   Command1_Click()
    Dim   odj   As   pclass.Class1
    Set   odj   =   New   Class1
    odj.st   (Cn)
End   Sub

Cn对象怎么传入到DLL。在线等待

[解决办法]
什么问题？没反映？改一下吧：

Public Sub ST(sCn As ADODB.Connection)
dim f as new form1
f.Show
End Sub

Private Sub Command1_Click()
Dim odj As pclass.Class1
Set odj = New Class1
call odj.st (Cn)
End Sub