[Resolvido]Filtrando dados

Private Sub FiltraCliente_Change()
Dim filtro As String
If Len(Me!FiltraCliente.Text & "") = 0 Then
    'Se não há nada digitado, remove o filtro
    Me.Filter = ""
    Me.FilterOn = False
    Exit Sub
End If
filtro = "[Cliente] like '*" & Me!FiltraCliente.Text & "*'"
Me.Filter = filtro
Me.FilterOn = True
End Sub

Private Sub txtCliente_Change()
Dim filtro As String
Dim x As String
x = Me!txtCliente.Text
If Len(x & "") = 0 Then
    'Se não há nada digitado, remove o filtro
    Forms!formListCli!Clientes.Form.Filter = ""
    Forms!formListCli!Clientes.Form.FilterOn = False
    Forms!formListCli!FiltraCliente2.SetFocus
    Exit Sub
End If
filtro = "[Cliente] like '*" & x & "*'"
Forms!formListCli!Clientes.Form.Filter = filtro
Forms!formListCli!Clientes.Form.FilterOn = True
End Sub