Giusto....mi ero dimenticato di scriverlo

codice:
Public Sub SetRowSource(setCmb As Object, SQL As String, ByRef conn As ADODB.Connection, Rs As ADODB.recordset)
    Call GetRecordset(SQL, ConnString, conn, Rs)
    Set setCmb.RowSource = Rs
End Sub