お世話になっています。鈴木です。

皆さん、レスありがとうございます。
別件のトラブル対応で返事が遅くなりました。m(__)m

兵頭様
> Set ObjRs = Nothing
> をWhileの中の処理の最後に入れてみては
> いかがでしょうか？

入れてみましたが結果は同じでした。
別のところに原因がありそうです。

濱野様
> 上記テーブルのJANCDの定義はどのように行われているのでしょうか？

varchar 型で13バイトです。
Not Null指定でプライマリーキーとなってます。
Textデータ(CSV)自体も13桁で不要なスペースがあった場合Trim関数で
削除しているので問題ないはずなのですが..。

斉藤様
> 単に、jancdChkをjanChkとスペルミスなさっているのでは・・・・・

大変申し訳ありません。今回投稿時の記述ミスです。
実際テストしているコードは間違いはありませんでした。
不要な処理を取り除いたりわかりやすいように追加したりして
いたときに間違えて記述してしまいました。

--

実は今回のロジックはOracleのOO4Oからの移行を行っているのですが
ADO+MSDEに変えたときにうまく動作しなくなってしまいました。
先程、OO4Oでなく、ORACLE+ADOでテストしてみたところ同じように
エラーが発生しました。但しエラーがでるレコード番号はMSDEとは
まったく異なります。

MSDEが問題でなくADOでのDBアクセスに問題があるような感じですが
まだ原因はよくわかりません。
もうすこし調べてみる予定です。

鈴木