Visual Basic - que hago mal, por favor

que hago mal, pues la lectura de los pisos la hace correctamente, pero las fechas no consigo que me seleciones las que les introduzco en fecha1, y en fecha2, debe de salir desde la fecha 1 hasta la fecha2, de los piso1 hasta piso2, en las bases de datos la fecha esta en formato fecha/hora, y los pisos en texto



Data1.RecordSource = " SELECT * FROM morosos WHERE piso BETWEEN '" & PISO1 & "' AND '" & PISO2 & "' AND Fecha BETWEEN #" & Format(FECHA1, "DD/MM/YYYY") & " AND #" & Format(FECHA2, "dd/mm/yyyy") & "# order by fecha"

Te faltó un # antes del AND de las fechas

Data1.RecordSource = " SELECT * FROM morosos WHERE piso BETWEEN '" & PISO1 & "' AND '" & PISO2 & "' AND Fecha BETWEEN #" & Format(FECHA1, "DD/MM/YYYY") & "# AND #" & Format(FECHA2, "dd/mm/yyyy") & "# order by fecha"

si tampoco funciona correctamente probá de utilizar el formato MM/DD/YYYY, ya que es comun que la base de datos reconozca un formato de fechas distinto al que estas utilizando en visual