列フィールドをループして配列に挿入する方法
Do While rstRGRPT1.RecordCount
sCol = rstRGRPT1!FCOL
'oAList.Add "sCol"
rstRGRPT1.MoveNext
Loop
列フィールドをループして配列に挿入する方法
Do While rstRGRPT1.RecordCount
sCol = rstRGRPT1!FCOL
'oAList.Add "sCol"
rstRGRPT1.MoveNext
Loop