мне кажется В.С. предложил хорошее решение.....
т.е. делаешь эту sql строку динамически в вба
как я понял Mon01- это текущий месяц...
т.е. из функции date() ... (не помню как выделить месяц числом.)
Mon01 as date(...)
Mon02 as date(...)+1
и т.д....
ну как то так...

можешь менять системное время т.е. в системном времени менять месяц и тогда моя система заработает..... хм... только нужно ли так делать......

GetSystemTime
This function retrieves the current system date and time. The system time is expressed in Coordinated Universal Time (UTC).

void GetSystemTime(
LPSYSTEMTIME lpSystemTime );
Parameters
lpSystemTime
[out] Pointer to a SYSTEMTIME structure to receive the current system date and time.
Return Values
None.

Requirements

Runs on Versions Defined in Include Link to
Windows CE OS 1.0 and later Winbase.h



Note This API is part of the complete Windows CE OS package as provided by Microsoft. The functionality of a particular platform is determined by the original equipment manufacturer (OEM) and some devices may not support this API.

SYSTEMTIME
This structure represents a date and time using individual members for the month, day, year, weekday, hour, minute, second, and millisecond.

typedef struct _SYSTEMTIME { // st
WORD wYear;
WORD wMonth;
WORD wDayOfWeek;
WORD wDay;
WORD wHour;
WORD wMinute;
WORD wSecond;
WORD wMilliseconds;
} SYSTEMTIME;
Members
wYear
Specifies the current year.
wMonth
Specifies the current month; January = 1, February = 2, and so on.
wDayOfWeek
Specifies the current day of the week; Sunday = 0, Monday = 1, and so on.
wDay
Specifies the current day of the month.
wHour
Specifies the current hour.
wMinute
Specifies the current minute.
wSecond
Specifies the current second.
wMilliseconds
Specifies the current millisecond.
Remarks
It is not recommended that you add and subtract values from the SYSTEMTIME structure to obtain relative times. Instead, you should

Convert the SYSTEMTIME structure to a FILETIME structure.
Copy the resulting FILETIME structure to a ULARGE_INTEGER structure.
Use normal 64-bit arithmetic on the ULARGE_INTEGER value.
Requirements

хм.... но я бы так не заморачивался....

вот тебе ещё...

Шаг 10 - Инструкция Date
Устанавливает текущую системную дату:

Date = дата

Параметры
дата
Для компьютеров, работающих под управлением Microsoft Windows 95, аргумент дата должен задавать дату в интервале от 1 января 1980 года до 31 декабря 2099 года. Для компьютеров, работающих под управлением Microsoft Windows NT, дата в интервале от 1 января 1980 года до 31 декабря 2079 года.

Пример
В данном примере инструкция Date используется для установки системной даты. В среде разработчика дата изображается в кратком формате с использованием текущих национальных настроек.

Dim MyDate
MyDate = #February 12, 1985# ' Присваивает дату.
Date = MyDate ' Изменяет системную дату.