Pa vidi, posto je DataGrid "vezan" za rekordset kao izvor podataka, ne mozes izracunati na taj nacin sumu, vec iskljucivo moras "proci u petlji" kroz rekordset koji je izvor podataka:
Code:
Private Sub Sumiraj()
Dim dblSuma As Double
Dim dblKriterijum As Double
'Primer podrazumeva da imas neki rekordset rstTmp
'koji je izvor podataka za tvoj grid
dblSuma = 0
dblKriterijum = 1 'ovo je tvoj primer, samo sabira one koji su 1
If rstTmp.RecordCount > 0 Then rstTmp.MoveFirst 'ides na pocetak
Do While Not rstTmp.EOF
If rstTmp("Polje") = dblKriterijum Then 'za neko polje pod nazivom "Polje"
dblSuma = dblSuma + dblKriterijum
End If
rstTmp.MoveNext
Loop
Label1.Caption = "Suma je: " & Format(dblSuma, "###,##0.00")
End Sub
Naravno, ovde su mnoge stvari pretpostavljene, a mnoge nisu uzete u obzir, ali ....
PS
Ako ti treba klasican COUNT, umesto "dblSuma = dblSuma + dblKriterijum" pisi "dblSuma = dblSuma + 1"