VBA-kod för att lägga till länkad tabell med primärnyckel

Varför kan du inte skapa ett index för en ODBC-källa efter länkning?

På jobbet använder vi Access med länkade SQL Server-tabeller, och när någon vill ansluta till en annan databas (byta från produktionsmiljö till testmiljö) gör vi något så här för alla tabeller:

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"