access adoのトランザクション

質問

access2003でSQLServer2008へのリンクテーブルを作成し、
vbaでadoを使ってデータ更新処理をしようとしています。

以下のように記述していますが、
実行後、BやCのテーブルが開かなくなります。
（正確にはインサートしたデータが表示されるであろうページがロックされているような動きです。）
また、その状態からAccessを一旦終了し、再度起動すると、データがインサートされていない状態です。
コミットが効いてないように感じます。

こちら原因としてどんなことが考えられるでしょうか？

ちなみにDAOで動かしても同様でした。

宜しくお願い致します。

以下 コード＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Set cn = CurrentProject.Connection
Set rst = New ADODB.Recordset

cn.BeginTrans

rst.Open "select key from A", cn, adOpenForwardOnly, adLockReadOnly
Do Until rst.EOF

cne.Execute "insert into B （ aa, bb） select aa, bb from A where key = " & rst!key & " "
cne.Execute "insert into C （ aa, bb） select aa, bb from A where key = " & rst!key & " "

rst.MoveNext
Loop
rst.Close

cn.CommitTrans

cn.Close

set rst = Nothing
set cn = Nothing

回答No.3

nofx35

確認ですが、
トランザクションを掛けているConnectionはcn
インサートを行っているConnectionはcneになっていますが
これは投稿時の間違いですか？

お礼

すみません。パスワードが分からなくなってしまいお返事遅れてしまいました。

回答ありがとうございます。
cneは登校時の間違いでした。

回答No.2

ShowMeHow

シロウトなので、詳しいことは知らないので憶測だけど
コミットするまではメモリ上で処理しているんじゃないかな？

お礼

お返事遅くなり申し訳ありません。
回答ありがとうございます。

メモリ上というところは理解しているつもりなのですが、
コミットしても反映せず、ロールバックしてもテーブルロックがかかったままになり、
Accessを終了して再度起動するしか解除できなくなってしまいます。

とりあえずはロックタイプの指定を変えることで対処しましたが、
未だに動きが理解できてません・・・

回答No.1

ShowMeHow

adLockReadOnly
でインサートできるわけないよね。

補足

ありがとうございます！結果としてご指摘の通り、
rst.Open strSql, cn, adOpenKeyset, adLockOptimistic
でできました！
が、府に落ちてません。。。

まず、adLockReadOnlyが読み取り専用（コピーのようなもの？）で開くということなので
そのレコードセットに対する編集ができないのは分かるのですが
コネクションのExecuteでも書き込みできないのでしょうか？

そもそもExecute自体は通っていましたが、Execute直後からテーブルがロックされ
コミットでも解放されないという現象が不可解に思います。

ちなみにトランザクションを使わない場合、インサートできていたのですが
このプログラムの記述自体が何か不都合な書き方なのでしょうか？

可能性のレベルでも良いのでご指摘頂けますとありがたいです。