ADOのUPDATEコマンドでDBに値を入れるには？

解決

VBがんばってます 2005-02-03 23:17:48 No: 119426

開発環境
WinXP/VB6/Access2003

お世話になっております。
1次配列に入っている値をMDBのテーブルに入れたいのですが、うまくいかない箇所があります。どなたかご存知の方がいらっしゃいましたらご教授お願い致します。

テーブル名：「ワークテーブル」
カラム：1〜40（半角数字のみでカラムを定義しており、40カラムあります）
dim Rec as new ADODB.Recordset
dim test(39) as string

    'コネクションは開いております。
    Rec.ActiveConnection = アクセスへのパス
    Rec.Source = "ワークテーブル"
    Rec.CursorType = adOpenStatic
    Rec.LockType = adLockOptimistic
    Rec.Open
    With Rec
        .AddNew
        For i = 1 To 39
            ![i] = test(i - 1)   ←![i]のiで該当するコレクションがありませんと、エラー表示されます。
        Next
        .Update
    End With

ここを変数を用いて可変にすることは可能でしょうか？

VBがんばってます 2005-02-03 23:35:57 No: 119427

自己レスすみません。

上記でトラぶっていた
![i]の部分ですが、Rec.Fields.Item(i - 1)このように書き換えたところ
動作しました。

自己解決できる事でスレッドを立ててしまい申し訳ありませんでした。