una cosa del genere:
codice:
Dim strFiltro As String
strFiltro = "Contatore = 3" 

Sub Pulsante_Click()
    DataEnvironment.rsCommand.Filter = strFiltro
    DataReport1.Show 
End Sub
dovrebbe andare bene