こんばんは、サイトーです。

> その後、おおよそ下記の様なコードで実行してみましたが、IDENTITYフィールド
> （Tx見積書No）には、Null値が入ったままになってしまいます。何かやり方がま
> ずいのでしょうか？初心者で恐縮ですが、よろしくお願いします。
サンプルのコード中のCnnの定義が記述されていないので定かでは
ありませんが、おそらく私が実験した時とプロバイダが違うために
結果が異なったのだと思います。

私が試した時は、ConnectionオブジェクトにCurrentProject.Connection
を使っていましたので、こちらで試してください。

具体的には、このコードの例でしたら、
Dim Cnn As New ADODB.Connection
Set Cnn = CurrentProject.Connection
などとしてみてください。

  Cnn.ConnectionString = CurrentProject.BaseConnectionString
  Cnn.Open

とした時とは、異なるプロバイダが指定されるようです。

私の環境では、

CurrentProject.Connectionの時は、
Provider=MSDataShape.1;...;Data Provider=SQLOLEDB.1

CurrentProject.BaseConnectionStringの時は、
PROVIDER=SQLOLEDB.1

となっていました。ただし、トランザクションが必要な処理のようですので
期待した通りにトランザクションが効いているか確認してください。

プロバイダの違いにより、動作が異なるのはいくつか知ってましたが
この件についても異なるという事は知りませんでした。
私も勉強になりました。

以上、すべて私が独自に試してみた結果を書いていますので何の保証も
ありません。採用される場合はご自分の責任にてご使用ください。