配列でよければ、フィールドをデリミタで１つに連結したクエリを発行して得られたRecordSetのField値をSplitで分割すれば一発で代入可能です。速いかどうかは疑問ですが・・・。単に、コードを書くのが面倒という話なら、Excelと矩形選択可能なEditorを駆使すれば簡単にコードを半自動生成できます。