主キーを持つリンクテーブルを追加するVBAコード

リンク後にODBCソースのインデックスを作成できないのはなぜですか？

職場では、リンクされたSQL ServerテーブルでAccessを使用しており、誰かが別のデータベースに接続したい場合（本番環境からテスト環境に変更）、すべてのテーブルに対して次のようにします。

Dim TD As TableDef
Dim ConString As String

ConString = "ODBC;DRIVER={SQL Server};SERVER=ServerName;DATABASE=DbName;Trusted_Connection=Yes;"

CurrentDb.TableDefs.Delete "SomeTable"

Set TD = CurrentDb.CreateTableDef("SomeTable", 0, "SomeTable", ConString)
CurrentDb.TableDefs.Append TD
Set TD = Nothing

CurrentDb.Execute "CREATE UNIQUE INDEX SomeIndex ON SomeTable (PrimaryKeyColumn) WITH PRIMARY"