Visual Basic - Problemas al comparar 2 fechas

Hola Gente:

Estoy intentado hacer una comparacion de dos fechas pero me sale un error, a continuacion os pongo el codigo por si me podeis hechar una mano

Dim a as Date
Dim b as Date
'Recogo las fechas
a=frmContabilidadBusFech.txtDesde.Text
b=frmContabilidadBusFech.txtHasta.Text
Dim hasta as String
Dim desde as String
hasta=Format(a,"mm/dd/yyyy")
desde=Format(b,"mm/dd/yyyy")
------
Separo las comillas para que lo veais mejo

adoPrimaryRS.Open "Select * from FACTURACION where FECHAFAC BETWEEN' " & CDate(desde) & " ' " & "And' " & CDate(hasta) & " ' "
----

Muchas Gracias

Si estás utilizando Access los delimitadores de fechas son los numerales (#):

adoPrimaryRS.Open "Select * from FACTURACION where FECHAFAC BETWEEN # " & CDate(desde) & "# " & "And #" & CDate(hasta) & "#"

También es conveniente que envíes las fechas con el formato "yyyy-mm-dd".