per chi serve , ho risolto così:
codice:
dr("Count") = dt.Compute("Count(Descrizione)", "Descrizione = '" & dr("Descrizione") & "' and "Prezzo = '" & dr("Prezzo") & "' ")