Microsoft Access 掲示板

追記
　　以下の一文をTable.RefreshLinkの前に追記しましたところ
　　UIDは保存されるようになりました。
　 Table.Attributes = dbAttachSavePWD
　　
　　ODBCリンクテーブル名にカーソールを置いた時、
　　UIDは表示されるようになりましたが、パスワードの項目は空欄のままです。
　　しかし、アクセスを再起動したところ、ODBCのリンクテーブルのパスワードを
　　要求されることは無くなりました。　
　　
　　ODBCのリンクテーブルのパスワード要求されることは無くなり　　
　　ある程度解決したのですが、技術的な面で釈然としません。　　
　　DAOのTableDefの仕様に関して詳しい方がおられましたら
　　引き続きご指導のほどよろしくお願いします。　　

以下、ODBCのリンクテーブルのパスワードが要求されることが無くなったコード
’※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
Private Sub btnODBC_Click()

Dim Table As DAO.TableDef

 For Each Table In CurrentDb.TableDefs
　
　’ODBCのリンクテーブルの時にはODBCデータを更新する            
  If Table.Attributes And TableDefAttributeEnum.dbAttachedODBC Then
　　　　　
　　　　　’ODBCの情報を以下の内容で更新する
　　　　　Table.Connect = "ODBC; DATABASE=testSample;UID=xx;PWD=xxx;DSN=xxxxx;"
　　　　　
　　　　  ’※※※※※※※※※※※※※※※※※※
　　　　　’UID,パスワードを保存するコードを追加%%
　　　　　Table.Attributes = dbAttachSavePWD
　　　　　’※※※※※※※※※※※※※※※※※※※

　　　　　
　　　　　’ODBCのリンクを更新実行
　　　　　Table.RefreshLink ’←ここをTableDefAttributeEnum.dbAttachSavePWDにてパスワード、UIDを保存する
　　　　　　　　　　　　　　　’内容に書き換えると更新したときにパスワード、、UIDがODBCテーブルに保存される？　　
  End If
Next

End Sub
’※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※