森＠伊原です。
前回の投稿（262番）で、開封確認オプションを付けたまま投稿してしまいました。
皆様に大変ご迷惑をおかけしましたことを深くお詫び申し上げます。 ml-msdeメー
リングリストのルールの認識不足であり、深く反省をいたしています。

さて、前回サイトーさんからアドバイス頂いた内容は、
> ADOのレコードセットオブジェクトを使ってのインサートであればUpdateメソッド
> 実行後にIDENTITYフィールドを参照すれば入っていると思います。

その後、おおよそ下記の様なコードで実行してみましたが、IDENTITYフィールド
（Tx見積書No）には、Null値が入ったままになってしまいます。何かやり方がま
ずいのでしょうか？初心者で恐縮ですが、よろしくお願いします。
環境は、Access2000 + MSDE です。

Private Sub レコードの追加()
  Dim Rs As New ADODB.Recordset
  Dim strSQL As String
  Cnn.BeginTrans
  strSQL = "select * from D01見積履歴"
  With Rs
    .Open Source:=strSQL, ActiveConnection:=Cnn, CursorType:=adOpenDynamic, LockType:=adLockOptimistic
    .AddNew
    .Fields("顧客No") = Tx顧客No
        ：
    .Update
    Tx見積書No = .Fields("見積書No")	’見積書Noフィールドに IDENTITYを設定しています
    .Close
  End With
  
  strSQL = "select * from D02見積仕様"
  With Rs
    .Open Source:=strSQL, ActiveConnection:=Cnn, CursorType:=adOpenDynamic, LockType:=adLockOptimistic
    .AddNew
    .Fields("見積書No") = Tx見積書No	’このフィールド値をD01見積履歴と一致させたい
        ：
    .Update
    .Close
  End With
  Cnn.CommitTrans
End Sub


********************************
森　尚樹
伊原電子工業株式会社
E-mail: who@example.com
URL: http://www.ihara-group.com/
********************************