Oracle + VBで顧客名簿のDBアプリを作っています。(接続はoo4o)

顧客の名前などは既にデータベースに登録されており、
プログラムでIDを自動的に割り当てたいのですがうまくできません。

番号はSequenceで生成を試みているのですが、1ずつ増加するはずなのに、
120ずつ増加しちゃったりします。わけわからん。

こんな感じで処理をしています。

Do
Set Objecthoge(Sequence.NextVal)
　レコードID = Objecthoge.Fields("NextVal").Value
Objecthoge = nothing
Loop Util 全レコード数

↑また、数百件処理をした後、ループ中にハングしてしまうです。

書き込みが下手で申し訳ありませんが、要約すると
VBプログラムで全てのレコードに対してIDを割り当てたいんです。

アドバイスおねがいします。