Filtro Relatório entre Datas

Pessoal,

Boa Tarde!

preciso de uma solução para o seguinte código o qual eu filtre periodo de datas em relatório, o mesmo me retorna valor distorcido como por exemplo:

DataInicial = 10/10/2014
DataFinal= 11/11/2014

"Ele traz tudo pela frente...10,11,12,13" e só Funciona quando as datas sao iguais.

Private Sub Visualizar_Click()

On Error Resume Next
If IsNull([DataInicial]) Or IsNull([DataFinal]) Then
MsgBox "Você deve informar as datas inicial e final.", , "Erro de Data"
DoCmd.GoToControl "DataInicial"
Else
If [DataInicial] > [DataFinal] Then
MsgBox "A data final deve ser maior que a data inicial.", , "Erro de Data"
DoCmd.GoToControl "DataInicial"
Else
DoCmd.OpenReport "RelatorioPass", 2, , _
"Data >= #" & Me![DataInicial] & "# And Data <= #" _
& Me![DataFinal] & "#"
DoCmd.RunCommand acCmdZoom75
Me.Visible = False 'torna o form invisível
DoCmd.SelectObject acReport, "RelatorioPass", False
End If
End If
End Sub

Assista as aulas 11 e 12 desse curso e veja se ajuda.

Vídeo curso - Criando um sistema de vendas