Tips99 - SQL文 曜日を求める WEEKDAY関数

dim SQL as String
dim rs As Recordset
SQL = "SELECT WEEKDAY(日付フィールド) FROM テーブル名"
Set rs = CurrentDb.OpenRecordset(SQL)

WEEKDAYを使うと下記の定数が返ります。
日曜 : 1
月曜 : 2
火曜 : 3
水曜 : 4
木曜 : 5
金曜 : 6
土曜 : 7