ник: час
rst.Open "SELECT USERS_TRANSACTIONS_TBL.*" _
& " From USERS_TRANSACTIONS_TBL" _
& " Where (((CDate([DATE_RECORDS]) >= CDate('" & Me!Calendar1 & "')) <> 0) And ((CDate([DATE_RECORDS]) <= CDate('" & Me!Calendar2 & "')) <> 0))" _
& " WITH OWNERACCESS OPTION;", GLB_con, adOpenKeyset, adLockOptimistic
несоответствие типов данных
Вчера работало 
[DATE_RECORDS] - тип данных строковое 01.01.09
Me!Calendar1 - календарь на форме тип данных date 01/01/09