アクセスデータベースのテーブルのフィールドを配列に格納するには？ (ID:123995)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 タイトルの通り アクセスデータベースのテーブルの列フィールドを配列に格納したいのですが 「※」印のところの記述の仕方が わかりません。 もしかして 自分の考え方が 全く違っているんでしょうか？ With prRsKaisya '件数のカウント開始を０とする prlngDatNo = 0 '使用可能なファイルナンバーを取得 prIntRsFileNo = FreeFile Open ※ For Input As #1 '先頭レコードから最終レコードまで実行 For i = 1 To .RecordCount '件数をカウント prlngDatNo = prlngDatNo + 1 '配列の宣言 ReDim Preserve prStrKaisyaCd(prlngDatNo) As String ReDim Preserve prStrKaisyaNm(prlngDatNo) As String 'データを変数に格納 Input #1, prStrKaisyaCd(prlngDatNo), prStrKaisyaNm(prlngDatNo) Next End With