[Resolvido]Filtragem por data inicial e final, mais caixa de texto

Prezados boa noite.

Preciso de uma ajuda até simples.
Desenvolvi a rotina abaixo para me mostrar data inicial e final.
Mas preciso também que o conteúdo da caixa de texto oculta também seja filtrado.

Segue o código e em vermelho a linha que preciso que realize a filtragem. Da maneira que se encontra a mesma não está a filtrar.
Porém se eu retirar o que vai depois do AND, funfa legal.
On Error Resume Next
On Error GoTo fim
' aqui a pesquisa por data de atendimento
Dim filtro$
Me.FilterOn = False
filtro = "Dataatendimento between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#" And Me.DentistaOculta = Me.DenOculta
Me.Filter = filtro
Me.FilterOn = True
Me.DataAtendimento.BackColor = RGB(192, 230, 212)

fim:
If Err.Number = 3709 Then
MsgBox "Não há data inicial e nem final" & vbCrLf & _
"Favor colocar as datas !", vbExclamation, Me.Caption
End If
Me.BtNomeOculta.SetFocus
Me.BtNomeOculta.Text = "Pesquisa por Data de Atendimento"
End Sub

Agradeço a todos, que se propuserem a me socorrer.

Grato.

Boa noite Alexandre...

Acertou de primeira.

Agradecido.

Abraços.

Case Closed