Проще всего написать в запросе:

where моеполе between [введите первую дату] and [введите последнюю дату]

Вот пусть и вводят то, что взбредет.

Самый надежный способ - следующий.

1. Делаем форму для ввода дат (можно одной, можно обеих). Для каждой даты день, месяц и год - отдельные контролы. При этом месяц лучше всего сделать в виде комбобокса. На кнопку ОК вешаем занесение даты в переменную типа Date:

dMyDate1=DateSerial(txtYear1,cmbMonth1,txtDay1)

2. Пишем функцию, которая возвращает значение этой переменной:

Public Function MyDate1() As Date
MyDate1=dMyDate1
End Function

3. В запросе обращаемся к этой функции:

where моеполе between MyDate1() and MyDate2()