[Resolvido]Filtrar formulario

Boa noite pessoal,quero filtrar esse exemplo poe cliente,tipo de servico e descriçã,mas acho que perdi meus neuronios,não to conseguindo,alguem podeia dar uma olhadinha.
Abç.



https://www.dropbox.com/s/s2hc7phzxzfxmyz/SistemaPDV.accdb?dl=0

Dica: sempre antes de disponibilizar seu arquivo, utilize a ferramenta compactar e reparar do MS Access. Seu banco caiu de 139mb para 2mb.

Estude o que foi feito. Sucesso.

Código:

Dim strFiltro As String
   
    If Nz(Me!txt_PesquisaCliente) <> "" Then strFiltro = "Cliente like ""*" & Me!txt_PesquisaCliente & "*"""
    If Nz(Me!cboTiposServico) <> "" Then strFiltro = IIf(strFiltro <> "", strFiltro & " And ", "") & "TipoServico = """ & Me!cboTiposServico & """"
    If Nz(Me!txt_PesquisaDescricao) <> "" Then strFiltro = IIf(strFiltro <> "", strFiltro & " And ", "") & "Descricao like ""*" & Me!txt_PesquisaDescricao & "*"""

    If strFiltro = "" Then
        Me!FormLancamentos.Form.Filter = ""
        Me!FormLancamentos.Form.FilterOn = False
    Else
        Me!FormLancamentos.Form.Filter = strFiltro
        Me!FormLancamentos.Form.FilterOn = True
    End If

Ivan,muito obrigado,valeu mesmo.