rs.PageSize =  1 
countrecords = rs.PageCount

Public Sub SET_ServerFilter(ByRef FRM As Form)
Echo False

Dim SF As String
SF = FRM.Filter

If SF =  "" Or FRM.FilterOn = False Then
    FRM.ServerFilter = "  "
    FRM.RecordSource = FRM.RecordSource
    Echo True
    Exit Sub
End If

SF = Replace(FRM.Filter, Chr(34 ) & Chr( 34 ), "<myfindquote> ", , , vbTextCompare)
SF = Replace(SF, Chr(34 ), "'", , , vbTextCompare)
SF = Replace(SF, "<myfindquote>", Chr(34), , , vbTextCompare)
SF = Replace(SF, " ALike ", " Like ", , , vbTextCompare)
If SF Like "* select *" Then SF = Replace(SF, FRM.Name & ".", "", , , vbTextCompare)


If Trim(FRM.ServerFilter) = "" Or IsNull(FRM.ServerFilter) Then
    FRM.ServerFilter = SF
Else
    FRM.ServerFilter = FRM.ServerFilter & " AND " & SF
End If
FRM.Filter = ""
FRM.RecordSource = FRM.RecordSource
Echo True
'Желающие убедиться могут раскоментировать ниже
'FRM.Recordset.PageSize = 1
'Debug.Print FRM.Recordset.PageCount
End Sub

Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
    Call SET_ServerFilter(Me)
End Sub