'1. Создай указатель на Event-handled рекордсет:
Private WithEvents rsOrg As ADODB.Recordset    

'2.  "Начини"  нужным кодом следующий обработчик событий:
Private Sub rsOrg_MoveComplete( _
    ByVal adReason As ADODB.EventReasonEnum, _
    ByVal pError As ADODB.Error, _
    adStatus As ADODB.EventStatusEnum, _
    ByVal pRecordset As ADODB.Recordset)
    
    If adReason <> adRsnRequery Then Exit Sub       
'Изо всех резонов единственный - adRsnRequery - выскакивает при фильтрации.
'Его и используем для возбуждения сигнала  "Рекордсет отфильтрован" :

Dim s As ...
With pRecordset
    If .Filter = adFilterNone Then
        s = ...
    Else
        s = .Filter
    End If
    RaiseEvent RsFiltered(.RecordCount, s)  'Принимай, Макарыч!
End With

End Sub