VBAにてリンクテーブルを作成する方法について

試してみましたが、だめでした。

はい。保存しています。

リフレッシュで回復するなら

Dim Dbs As Database
Set Dbs = CurrentDb
Dbs.TableDefs.Refresh

すべてのODBCリンクのリフレッシュなら

Dim Dbs As Database
Set Dbs = CurrentDb
For Each Tdf In Dbs.TableDefs
    If Tdf.Connect Like "ODBC;*" Then
        Tdf.RefreshLink
        Tdf.Fields.Refresh
    End If
    DoEvents
Next Tdf
Dbs.TableDefs.Refresh

やってみたんですが、データソース選択画面が表示されてしまいます。
VBAで接続先のODBCを設定することはできないですか。

Tdf.ConnectにODBCの接続文字列を指定します。

Dim Dbs As Database
Set Dbs = CurrentDb
For Each Tdf In Dbs.TableDefs
    If Tdf.Connect Like "ODBC;*" Then
        Tdf.Connect = "ODBC;DRIVER=xxxx;UID=xx;PWD=xx;DATABASE=xx;SERVER=xxx;"
        Tdf.RefreshLink
        Tdf.Fields.Refresh
    End If
    DoEvents
Next Tdf
Dbs.TableDefs.Refresh

ご回答ありがとうございます。
うまく接続できないので接続情報を確認させてください。
以下で設定はあってますよね？
DRIVER={Oracle in OraDb11g_home1}
DATABASE=(TNSサービス名を設定※)
　※TNSNAMES.oraでいうところのSERVICE_NAMEに設定している文字列)
SERVER=(DBサーバーのIPを設定）

すでに書かれているデータソースに指定している接続文字列と同じだと思います。

＞すでに書かれているデータソースに指定している接続文字列と同じだと思います。
となるとデータソースに書かれれいる接続文字列のどこがどの値にあたりますか。
DATABASEとSERVERの設定値はデータソースのどの項目の値を設定するのでしょうか。

たとえば現在この設定だった場合にDATABASEとSERVERにはどの値を設定すればよいですか。
[データソースの設定値]
ODBCデータソース名：AAA
TNSサービス名：BBB
ユーザーID：CCC
パスワード：DDD
[NET MANAGER（TNSNAMES.ora）の設定値]
ホスト名:192.168.1.10
サービス名:EEE