With this code, how do I pass the conn object to another class module?
The name of the function that needs to receive the conn object is
Code:Public Function Get_Search_RS(conn As ADODB.Connection, rsRecordset As ADODB.Recordset, strTitle As String, strCat As String, strFileX As String, strFileName As String) As String
Code:Public Sub GetConn2() Set conn = New ADODB.Connection conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Sms001\Shared\web\Internet\Graphic_Search\dbGraphics.mdb;Persist Security Info=False" conn.CursorLocation = adUseClient conn.Open End Sub




Reply With Quote