Filtro entre datas

Estou utilizando o seguinte codigo para fazer um filtro entre datas.

Private Sub btConsulta_Click()
Dim j As Boolean, filtro As String
If IsNull(Me!DataInicial) Then j = True
If IsNull(Me!DataFinal) Then j = True
If j = True Then
MsgBox "Preencha todos os campos...", vbInformation, "Aviso"
Exit Sub
End If


filtro = " consultasubformAgAnalise.DataNota Between #" & Format(Me!DataInicial, "mm/dd/yyyy 23:59") & "# AND #" & Format(Me!DataFinal, "mm/dd/yyyy 23:59") & "#"
'----------------------------------------------------------------------------------------------------------------------------------------------------------------

subformAgAnalise.Form.Filter = filtro
subformAgAnalise.Form.FilterOn = True



End Sub

Utilizei esse codigo do Avelino mas o problema que ele esta filtrando só o Dia. Exemplo:
Datainicial:01/01/2013
DataFinal:03/02/2013

quando coloco assim ele filtra tudo que tem dia 01 e 03 não importa o mês, alguém poderia ajudar com esse erro?

Tente inverter a formatação da data americana para;

filtro = " consultasubformAgAnalise.DataNota Between #" & Format(Me!DataInicial, "dd/mm/yyyy 23:59") & "# AND #" & Format(Me!DataFinal, "dd/mm/yyyy 23:59") & "#"

sem sucesso, ainda quando filtro o ano sai errado.

Alguma dica?