データベースの値を上から順に格納していくために構造体を利用し、
下のソースを作成し、実行しましたが、
処理が失敗します。構造体の書き方は、これであっていますでしょうか？
おかしいところがなければ、ループの中の処理が間違っていると思うので
まずは、構造体があっているかのアドバイスをいただけないでしょうか。
よろしくお願いいたします。

Private Type testtype
    ID As String
    ID2 As String
End Type

Private test() As testtype
Private counter As Integer

------------------------------------------------------

Private Function ・・・・・・・・

redim test(0) as testtype
counter = 0

Do While (DBがEOFになったら抜ける)

test(counter).id = "コード１"
test(counter).id2 = "コード２"

counter = counter + 1

ReDim Preserve test(counter)

次のデータへ移動する

Loop

End Function

> 処理が失敗します。
では、解らないかと、エラーがでるのか？　値が格納できないのか？
どこが、どのように失敗するかを書かないとレスがつきませんよ。
データの件数がどれくらいなのかも見ている人には解らないし。

（他人に物事を伝える時は、文書に5W1Hを含めるように書かないと）