you can create a access form which asks for two values, and replace the values and fire the query, its seems simple to me
strQuery = " ... WHERE ((([Main Table].Date) Between [Enter_the_Start_Date] And [Enter_the_End_Date])) ... "
strQuery = replace(strQuery,"Enter_the_Start_Date", first_value)
strQuery = replace(strQuery,"Enter_the_End_Date", second_value)
execute the query and you are done.
let me know if i am wrong.