🚀 go-pugleaf

はじめまして。

サーバとクライアント双方にＮＴ４．０を使用しています。
サーバ上でＳＱＬサーバを稼動し、クライアントからＶＢを使用してアクセス
するプログラムを作成していますが、次のようなコードを実行すると
実行時エラー ３１４６（ＯＤＢＣ呼び出しは失敗しました） が発生します。

要約すると、トランザクション中であるテーブルをオープンし、追加・変更を
行った後クローズし、後程オープンし直そうとするとエラーがおきます。
ＳＱＬサーバへはＡＣＣＥＳＳのＭＤＢでテーブルをリンクさせ、
Ｊｅｔ経由でアクセスしています。

ＳＱＬサーバにあるテーブルをローカルのＭＤＢに作成して同じ操作を
実行した場合はもんだいなくどうさします。

そこで質問ですが、

１、原因はなんでしょう？
２、この現象に遭った方、どのように回避されたのでしょうか（代替案など）

以下、サンプルです。

	dim DB as database
	dim SQL as string
	dim REC as Recordset
	dim DBNAME as string

	DBNAME="C\Projects\DB\TEST.mdb"

	set DB = DBEngine.Workspaces.OpenDatabase(DBNAME)

	DBEngine.Workspaces(0).BeginTrans

	SQL = "Select * From Table1"
	set REC = DB.OpenRecordset(SQL,dbOpenDynaset)

	REC.Addnew
	REC.Fields(0) = 9999
	REC.Fields(1) = 1111
	REC.Update
	
	REC.Close	'テーブルをいったんクローズ
	
	'ここでＤＢとは関係ない処理をしばらく行う

	’同じテーブルをオープン
	SQL = "Select * From Table1"
	set REC = DB.OpenRecordset(SQL,dbOpenSnapshot)'！！！ここでエラー
	
以上、よろしくお願いいたします。