AccessVBAでテーブルへデータを書き込みする時に指定するフィールド名を、変数で指定する方法

Question

度々お世話になります。
Access2010(VBA)でプログラムを書いています。

ニュアンスとしては、以下のような処理がしたいのですが、
どのように記述すればよいのでしょうか？

Dim RsData As Recordset
Dim mydb As Database
Set mydb = CurrentDb
Set RsData = mydb.OpenRecordset("WorkTable")

RsData.AddNew

Dim i As Long
For i = 0 To maxR Step 1
	RsData!DataBaseFieldName(i) = RecordArray(i)  'この部分
Next i

前提条件として、
DataBaseFieldName()にフィールド名が記録されています。
RecordArray()にテーブルに保存したいデータが格納されています。
※直前でReDimしてあります。

それか、以下のように、列（フィールドの相対位置）を指定して代入する方法はありますか？

Dim i As Long
For i = 0 To maxR Step 1
	RsData!(i) = RecordArray(i)  'この部分
Next i

教えていただけると大変有りがたいです。
よろしくお願いします。

補足：

現在、Access2010(VBA)で、
フィールド数が可変するCSVデータをシステムに取り込み、
テーブルを作成して、データをを保存するプログラムを作っています。

フィールド名はCSVデータの１行目とするので、
事前にフィールド名が分かりません。

そのため、作成したテーブルに
変数名でフィールド名を指定、もしくは列指定する必要があるのですが、
この部分の記述が分かりません。

Answer 1

以下でどうでしょうか？ ※手元に確認できる環境がないのでダメだったらすみません。

RsData.Fields(DataBaseFieldName(i)) = RecordArray(i)

列順が同じなら以下でもできるかもしれません。

RsData.Fields(i) = RecordArray(i)

お試しください。

Comments

[urakawa]

jawa様

ご回答ありがとうございます！

RsData.Fields(DataBaseFieldName(i)) = RecordArray(i)
で、できました！

列順は同じですが、
RsData.Fields(i)
ですと、
RsData（テーブル）のレコードを参照するみたいですので、
相対位置指定（列番号での指定）は難しいようです。

とても助かりました。
ありがとうございました！