dll如何传入控件呢，就像我这个简单的函数

Question

Option ExplicitPublic StrConn As String
Public Sub RsCol_into_Dcb(StrTableName As String, StrColName As String, StrWhere As String, Dcb As DataCombo)Dim Conn As New ADODB.Connection
If Conn.State = 1 Then Conn.Close
Conn.Open StrConnDim Rs As New ADODB.Recordset
Rs.Open "select " & StrColName & " from " & StrTableName & " " & StrWhere, Conn
If Rs.EOF = False Then
    Set Dcb.RowSource = Rs
    Dcb.ListField = StrColName
End IfEnd Sub主要是说Dcb As DataCombo不是全局的，可是我就是想要这样的效果，如何写呢？

Answer 1

Public Sub RsCol_into_Dcb(StrTableName As String, StrColName As String, StrWhere As String, frm1 as form)   Set frm1.Dcb.RowSource = Rs
    Dcb.ListField = StrColNamefrm1用你dcb所在的窗体名引入就ok了

Answer 2

一个函数为什么要做那么多工作呢？
可以就返回一个记录集啊在得到纪录以后，在设置datacombo 不是挺好的嘛