Visual Basic - Seleccion por rango de fechas

Tengo un problema, uso lo siguiente para modificar los valores de un campo:
-----------------------------
Dim rstMarca As New ADODB.Recordset, SQLMar As String

datInicial = DateSerial(2005, 7, 1)
datFinal = DateSerial(2005, 10, Day(Date))

SQLMar = "Select * from movimiento " _
& "where movfch Between #" & datInicial & "# and #" & datFinal & "# order by movfch"

rstMarca.Open SQLMar, conData, adOpenDynamic, adLockPessimistic

With rstMarca
If .EOF = True Then
.Close
MsgBox "No hay datos para mostrar", vbExclamation, App.Title
Exit Sub
End If

Do Until .EOF
!movprn = True
.Update
.MoveNext
Loop

End With

rstMarca.Close
---------------------------------------

Lo que quiero hacer es que marque los registros que esten dentro del rango de fechas especificadas, pero no me da los resultados esperados, pues me marca de fechas distintas al rango.

Agradecere su ayuda.