VBScriptでSQLを使うASPを書いているのですが以下のところで
ハマッています。お助け願えませんか?

ある日から今日までのデータを抽出するのにSQLステートメント内に
"Where mona Between #2002/06/01# and Date()"
とすれば実行できますが、

from_date = DateSerial(2002, 6, 1)

として、
"Where mona Between from_date and Date()" とすれば
SQL文を実行する段階でエラーになります。どこがおかしいのでしょうか?
from_date が日付型(vbDate)になっていることは確認しております。