> While Not oraRst.EOF > <代入処理>> RowCnt = RowCnt + 1> oraRst.MoveNext> WEND<代入処理> の中で、oraRst.MoveNext や oraRst.MovePreviousを行っていないですか?