レスありがとうございます。
CStr(Year(Date)) & CStr(Month(Date)) & CStr(Day(Date))
でやってみると
2004/06/22
　↓
2004622
となってしまったので

strDateに日付を突っ込んで
Format(strDate, "yyyymmdd")
とすることで解決しました。

CSｔｒやYear,Month,Day、Format、Replaceの使い方を覚えられてよかったです。
ありがとうございました。