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
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