devi dire al command quale è il campo che deve filtrare; quindi se ad esempio il campo della tabella da filtrare si chiama "contatore" la sintassi corretta sarà questa:
codice:
Private Sub Command4_Click() 
   Dim strFiltro As String 
   strFiltro = "contatore = " & Data1.Recordset("cont") 
   DataEnvironment3.rsCommand12.Filter = strFiltro 
   DataReport14.Show 
End Sub