Visual Basic - Que hay de malo en esta linea???

Holas a tods...

Estoy rabiando por un error en la linea del select del recordset... Alguien podria ehcarme una mano a ver ue tengo mal..??

Gracias...

El campo fecha_hora_registro es de tipo fecha-hora

Public Sub AbrirControlREgistros()
Dim MiFecha As Date

MiFecha = DateDiff("d", 4, Date)

Set rstConfiguracionregistro = New ADODB.Recordset
rstConfiguracionregistro.CursorLocation = adUseClient
rstConfiguracionregistro.Open "select * from registro where fecha_hora_registro Between #" & Format(MiFecha, "mm-dd-yy") & "# And #" & Format(Now, "mm-dd-yy"), cnn, adOpenDynamic, adLockOptimistic

rstConfiguracionregistro.MoveLast
X = rstConfiguracionregistro.Bookmark

End Sub

Holas a ts tambien...

Para poder ehcarte una mano a ver ue tienes mal, deberias indicarnos cual es el error por el que estas rabiando.

De todas formas mira cual es la diferencia entre las funciones Date y Now

PARA MI EL # DE CIERRE EN LA SEGUNDA FECHA ESTA FALTANDO.
LA CONEXION CNN ESTA DECLARADA BIEN?
SALUDOS.

Holas..
Coloque el segundo # y sigue igual.... claro... si hacia falta.. pero continua el error

Aún no nos has dicho qué error te sale.