Crear variables con Eventos (por Ejemplo un RecordSet)
Este código es super sencillo :D, solo recuerda que debe existir la referencia a la librería del ADO Option Explicit Dim WithEvents Rs As Recordset Y tu variable Rs tendrá eventos como si fuera un control pegado en el formulario, puedes hacer esto con todas las variables tipo objetos (y que tenga eventos) Private Sub rs_EndOfRecordset(fMoreData As Boolean, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End Sub Private Sub rs_FetchComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End Sub Private Sub rs_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) End…