竹内です。

あれからいろいろと試していたら、DAOではなく、
ADOでやったらなんとか（？）できましたのでご報告致します。

以下のようなコードです。

**************************************************

Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String

Set cnt = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.RecordSet")


cnt.Open "TEST"                  'システムDSN名
sql = "SELECT * FROM msg"
rst.Open sql, cnt, adOpenKeyset, adLockOptimistic

cnt.Execute ("LOCK TABLES msg WRITE")

    MsgBox "stop"

    rst!入庫 = 5                 '編集
    rst.Update                   '更新

cnt.Execute ("Unlock TABLES")


Set rst = Nothing
Set cnt = Nothing

End Sub


**************************************************



test1.mdbで上記コードを実行し、「MsgBox "stop"」行で実行を
一時中断後、他のmdb（test2.mdb）から「msg」テーブルを開こう
としたら、ちゃんとロックがかかったのか（？）開けませんでした。
（半開き状態…とりあえず開くが空白状態になって固まる）

その後、test1.mdbでメッセージボックスの「OK」ボタンを押した
ら、そのあとにtest2.mdbテーブルの内容が見えました。
（コードどおりデータが書き換え・更新された状態で）

以上です。

神野様、ヒントを与えてくださって本当にありがとうございました。

なお、引き続き、もし上記コードにまずい部分がありましたら教えて
ください。運良くできただけなので、いまいち自分自身がきちんと
わかってないのです。
「この書き方じゃあこんなときにまずいよ！」なんてことがもしありま
したらご教示よろしくお願い致します。


***************************************************
（株）ロダン AN／NaNa 竹内 理
***************************************************