こんにちは。池田と申します。

しばらく調べているのですが、いい情報にＨＩＴできず、
皆様のお知恵をお借りできたらと思い、メールいたします。

同じスキーマを持つ２つのＳＱＬＳｅｒｖｅｒデータベース　Ａ，Ｂがあります。
SQLServer CのデータとA,Bのデータが同じであることを確認するために、Access2002でツールを作成しました。
Ａデータ確認用とＢデータ確認用として、現在リンク先の違うＭＤＢを２つ準備しています。

MDBを１つにしたいので、
テーブルなどのリンク先をＶＢＡで切り替えるプログラムを作成しました。

しかし、切り替えプログラム実行前後のテーブルデータが切り替わりません。

ODBC管理ツールやレジストリ内のODBC.ini設定は、
ＡからＢ、ＢからＡに切り替わっています。

どうしたら、テーブルデータが切り替わってくれるのかがよくわかりません。

参考になるデータなど、ご存知の方がいらっしゃいましたら、ご教示お願いできないでしょうか？
ぜひよろしくお願いいたします。

当方、ＤＡＯとＡＤＯＸなどの実践知識が不足しているせいか、
RefreshLink、Refreshなど、調べればしらべるだけ混乱してきてしまい、
本件になやみだして、すでに１ヶ月半が経過しようとしています。
＃ソースでは、RegisterDatabaseですが、SQLConfigDatabase版も作成いたしました。
＃もしその方がテーブルデータ切り替えに有効だなどという見識などありましたら、
＃ぜひ伺わせてください。

----------------------------------------------------------
参考までにソースを掲載いたします。
Sub test()
' テストプロシージャ
' リンク先をAにします。
' Call change_reg("A") <- テストの時は、Ａ、Ｂ間でコメントアウトを切り替えます。
' リンク先をBにします。
Call change_reg("B")
' テーブルの内容を確認します。
docmd.openquery "q_test" 
End Sub

Sub change_reg(kind)
'　実際のプロシージャ
Dim strAttrributes
' 接続先を選択します。
Select Case kind
    Case "A"
        strAttrributes = "Database=ｄｂ１" 
    Case "B"
    strAttrributes = "Database=db2"
End Select

strAttributes = strAttribute &
		vbCr & "Description=" & kind & _
                        vbCr & "Network=DBMSSOCN" & _
                        vbCr & "QueryLog_On=No" & _
                        vbCr & "StatsLog_On=No" & _
                        vbCr & "Server=server1"

DBEngine.RegisterDatabase "test", "SQL Server", True, strAttrributes End Sub

End sub
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
ボーダフォン株式会社　
情報システム本部　インフラ・ネットワーク部　
社内OAグループ　　　　　　　　池田　聡美　
who@example.com／MSN：090-1700-1856  　　　　 
TEL：03-6403-1014　(　内線：3205　） ／FAX：03-6403-2903
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++