Access側パススルークエリのODBC接続文字列を一括更新

実家で遊び半分で作っていたAccessデータベースがあるのですが、この度現自宅のテストサーバにMySQLをインストール・ODBC接続が可能になったため接続先をテストサーバに変更したいと思います。 が、複数あるパススルーの接続を一個ずつ変えるのもとてもめんどくさい。 ということで、接続先を一括で変更するモジュールを作成しました。 美しくないかもしれませんが、およそ以下の通りです。 ※選択クエリが含まれている場合、それらが強制的にパススルーに変わってしまうとのご指摘を頂戴しましたので修正します。 Public Function Fun_ODBC接続先更新() Dim O As Object Dim db As DAO.Database Dim pass_q As DAO.QueryDef Set db = CurrentDb For Each O In Application.CurrentD