Private Sub form_filter(cancel as integer,FilterType as Integer  )
  Dim rs As ADODB.Recordset,tbSumm as integer
  Set rs = Me.RecordsetClone
  if FilterType=acFilterByForm
    rs.Filter = Me.Filter
  End If
  tbSumm =  0 
  If Not rs.EOF Then rs.MoveFirst
  Do Until rs.EOF
    tbSumm = tbSumm + rs!price
    rs.MoveNext
  Loop
  me.PoleSum=tbSumm 
  Set rs = Nothing
End Sub

Dim rst As ADODB.Recordset
Private Sub Form_Open(Cancel As Integer)
Set rst = New ADODB.Recordset
rst.Open  "dbo.stp1" , CurrentProject.Connection _
, adOpenStatic, adLockReadOnly, adCmdStoredProc
Set Me.Recordset = rst
End Sub
Private Sub Btn_Click()
    rst.Filter =  "[price] > 5 "
    Set Me.Recordset = Nothing
    Set Me.Recordset = rst
End Sub