[Resolvido]Filtro por data e campo nome

Olá

Utilizo o seguinte código para filtrar entre datas :

Código:

Private Sub btnFiltrarData_Click()
filtro = "[DataHora] Between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"
Me!frmsubOcorrencias.Form.Filter = filtro
Me!frmsubOcorrencias.Form.FilterOn = True
End Sub

E tenho um outro campo de pesquisa por nome e queria que o anterior respeita-se esta pesquisa :~

Código:

Private Sub txtFiltraClientes_Change()
Dim strFiltro As String
strFiltro = "Utentes LIKE '*" & Me.txtFiltraClientes.Text & "*' "
Me.frmsubOcorrencias.Form.Filter = strFiltro
Me.frmsubOcorrencias.Form.FilterOn = True
End Sub

Ou seja pesquiso por nome e quando acrescento por data não respeita.

Obrigado

Um bem hajam ! Saúde . . .

resolvido