Consulta de parámetros de fecha con dao access

hola experto.

Ante todo, decirte que mis conocimientos son limitados poco mas de principiante...si he cometido errores ten paciencia...

Tengo una consulta creada con varios campos desde una tabla, quiero realizar una consulta "consulta almacen" pasándole los parámetros de fecha desde un formulario....la consulta se realizara entre la fechaone and fechatwo...y esto es lo que tengo...

Dim sentencia As String

Dim FECHAONE As String, FECHATWO As String

Dim miconexion As New ADODB.Command

Dim RST As ADODB.Recordset sentencia = "SELECT * FROM GESTION_ALMACEN" & "WHERE FECHA_DE ENTRADA BETWEEN PARAMETRO1 AND PARAMETRO2" FECHAONE = "04-01-2014"

FECHATWO = "07-04-2014"

Set miconexion = New ADODB.Command

With miconexion

.ActiveConnection = CurrentProject.Connection

.CommandText = sentencia

.Parameters("PARAMETRO1") = FECHAONE

.Parameters("PARAMETRO2") = FECHATWO

Set RST = .Execute End With While Not RST.EOF

Debug.Print RST!CÓDIGO

RST.MoveNext

Wend

RST.Close

Set RST = Nothing

Set miconexion = Nothing
End Sub