SQL - Desesperacion con las fechas

bueno lo que quiero en encontrar unos resultados entre dos fechas ,
este es el codigo que tengo ahora , he probado con muchos pero na de na .

Dim fecha1
Dim fecha2

fecha1 = CDate(Text4.Text)
fecha2 = CDate(Text5.Text)
With Data1

.RecordSource = "Select * from Partes_Personales where Fecha >= fecha1 And Fecha <= fecha2 "
.Refresh

End With

pero me da un error que dice

pocos parametros , se esperaba 2

voy a la ayuda ojeo el ejemplo y el codigo que tiene es el mismo.
a que se debe este error , por favor ayuda es lo que me queda para
acabar.

ya ta por fin lo solucione gracias de todas formas.

sigue igual , ahora me saca todos los registros

la fecha deberia ir en formato americano ......quedaria asi( recuerda que fecha2 y fecha2 son variables y lo que tu le envias añ recordsource es un string)

.RecordSource = "Select * from Partes_Personales where Fecha >= #" & fecha1& "# And Fecha <=#"& fecha2& "#"

espero te ayude
JK

Intentelo asi:

.RecordSource = "Select * from Partes_Personales where Fecha >= '" & fecha1& "' And Fecha <= '"& fecha2& "'"