[Resolvido]Pesquisas form com subform

Oi a todos ! Estou a precisar da vossa ajuda novamente. O problema é o seguinte, tenho um form+subform e 3 campos de pesquisa 2 para datas e ou outro para pesquisar por nome os códigos envolvidos são:

para pesquisar entre datas . . .

Código:

Private Sub filtro_Click()
Dim filtro As String
filtro = "Data between # " & Format(DI, "mm/dd/yyyy") & " # and # " & Format(DF, "mm/dd/yyyy") & " #"
Me!subfrmConsultaAvaliacaoSinaisVitais.Form.Filter = filtro
Me!subfrmConsultaAvaliacaoSinaisVitais.Form.FilterOn = True
Me.Requery
End Sub

Para pesquisar o nome . . .

Código:

Private Sub txtpesquisa_Change()
Dim strFiltro As String
strFiltro = "NomeCliente LIKE '*" & Me.txtPesquisa.Text & "*' "
Me.subfrmConsultaAvaliacaoSinaisVitais.Form.Filter = strFiltro
Me.subfrmConsultaAvaliacaoSinaisVitais.Form.FilterOn = True
End Sub

A questão é que os dois pesquisam, mas quando se pesquisa pelo nome não fica respeitado a data, mostrando os registos todos do cliente pesquisado. E quando volta-se a clicar no botão para pesquisar por data este coloca todos os clientes.
Agradeço ajuda. Obrigado

Olá;

Código:

Private Sub txtpesquisa_Change()
Dim strFiltro As String
strFiltro = "NomeCliente LIKE '*" & Me.txtPesquisa.Text & "*' AND Data between # " & Format(DI, "mm/dd/yyyy") & " # and # " & Format(DF, "mm/dd/yyyy") & " #"
Me.subfrmConsultaAvaliacaoSinaisVitais.Form.Filter = strFiltro
Me.subfrmConsultaAvaliacaoSinaisVitais.Form.FilterOn = True
End Sub

Obrigado, é isto mesmo amigo João Paulo. Abraço

Fico feliz.

Obrigado pelo retorno o forum agradece.