★☆★☆私の作ったVBScriptプログラムを上司になったつもりでダメだししてくれる方お願いします★☆★☆

厳しい言葉をいただけると幸いです。

プログラムの要件として
・MDBのデータを指定条件で抽出し表示する。
・必要であればExcelへ転記する
・転記した場合フォルダを作成（その中へテキストも作りテンプレートに沿ったSQLを発行し記録する予定ですがそこはまだ出来て無いです）

ここの処理やばくない？とかそういったことあったらどんどん言ってください。

プログラムのソース

MDB

必要な配置箇所
C:\db1.mdb
D:\レコード書き込みテスト.xls
D:\TEST\案件.xls（B列に適当に数字１～２０くらい CとDの１行目に適当な文字列）


勝手にバナーのタグが入ってしまいます。５３７行目のBODY以降から５８９行目は削除してください。


P.S.
あと今まで教えてくださった方に大変感謝しております。

VBに詳しくないので一般的な意見をば・・・。

・IFが３つネストしたら構造を考え直す
・定数は面倒でもコード中に書かないようにする
・使い道がわかりにくい変数名は自重するか、説明を記述する。
・HTML（レコードの表示を行う）部分、もう少しなんとかできないか。
・１関数が長い。同じような処理を二度書かないのが原則です。

って感じですかね。