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
End Sub

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