he usado estas 2 lineas 
   Cita:  rsLectores.Filter = "" & List1 & " ='" & Text1 & "'"
rsLectores.Filter = "" & List1 & " LIKE '" & Text1 + "%" & "'"
    y todo bien ahora quiero aplicar un between al filtro y no se como hacerlo correctamente intente asi y me manda error 
 Cita:  rsLectores.Filter = "" & List1 & " BETWEEN '" & txtDesde & "' AND '" & TxtHasta & "'"
    saludos