Private Sub Command4_Click()

Dim strFiltro As String

strFiltro = Data1.Recordset("cont")

DataEnvironment3.rsCommand12.Filter = strFiltro




DataReport14.Show


End Sub

ecco la mia sintassi originale
ho provato anche al posto di Data1.Recordset("cont") a mettere
text58.text che e' la text legata al campo contatore ma nulla