Errore prima di aggiornare casella combinata

Se eseguo la seguente routin da un pulsante tutto procede bene, se la eseguo prima dell'aggiornamento di una casella combinata denominata "Mastrino" mi segnala l'errore 2115 "Errore definito dall'applicazione o dall'oggetto"... perchè?

Private Sub Mastrino_BeforeUpdate(Cancel As Integer)
Dim rst As New ADODB.Recordset
Dim strsql As String

strsql = "select tblvuota.* from tblvuota where idvuoto='0'"

rst.ActiveConnection = CurrentProject.Connection
rst.CursorLocation = adUseClient
rst.Open strsql
Me.Painting = False
Set Me!sfrmIntMas.Form.Recordset = rst
Me.sfrmIntMas.Requery
Me.Painting = True
rst.Close
Set rst = Nothing

End Sub

Ci sbatto da diversi giorni ma non riesco a capire il motivo.
Un saluto e un grazie a tutti.

Su quale riga di codice ricevi l' errore ?

.....
Set Me!sfrmIntMas.Form.Recordset = rst
....

Cosa vuoi fare esattamente con questa assegnazione?

Esattamente su quella

Originariamente inviato da massimocard

Esattamente su quella

Ne ero convinto .... spiega cosa vorresti fare (e/o cosa vorresti ottenere)

Ho una form non associata con diversi campi per l'interrogazione dei mastrini Clienti Fornitori e Piano Conti.
All'interno una subform per i dettagli.
Vorrei utilizzare la routin, nel caso in cui non esistono record della ricerca, per pulire la subform in modo da rendere la visualizzazione completamente vuota.

Di solito si mette un Criterio o Filtro, oppure si costruisce una WHERE che non restituisca Records...

Francamente il tuo metodo è sbagliato, oltre ad usare ADO, quando con Access si dovrebbe dare priorità a DAO.
Quindi puoi fare così

Me!NomeSubForm.Form.Filter="1=0"

Me!NomeSubForm.Form.FilterOn=True

Oppure

Me!NomeSubForm.Form.RecordSource="SELECT * From TuaTabella Where 1=0"

Ho provato ma non riesco a comprendere bene la prima riga di codice che mi consigli e il secondo consiglio mi ritorna un l'errore 31 "impossibile inizializzare il provider dei dati"

Ho notato che era presente un difetto di interpretazione... che rendeva non comprensibile... prova ora se lo leggi correttamente.

Scusami ma non lo vedo

Li ho separati... deve essere un bug dell'editor