takezoさん 早速のご返答ありがとうございます。(^^) こちらの掲示板にのせて回答を待っている間も色々調べてみた結果 下記の部分を変更するとよいという 以前の書き込みを発見し 試したところうまく動きました。 Set mdb = session.GetDatabase( "NTKYA01", "WelcomeDeta.nsf") ↓ Set mdb = session.GetDatabase( "", "WelcomeDeta.nsf") サーバー名を""に変えました。 Notes Logに 「Cannot open databases on machines other than the server running your program」 というエラーが出ていましたのでこれをキーに検索をしました。 無事解決しました、どうもありがとうございました。