ник: MS_4G
Это, к сожалению, совсем не то, что надо: ваш текст создает ключ на сервере и только для таблицы, а надо в приложении, и притом как для таблицы, так и для представления.
Но другие ребята подсказали, и получилось вот что:
прилагаю фрагмент своего кода, который работает как надо:
Set tdf = dbs.CreateTableDef(Tbl)
tdf.Connect = ODBC_String
tdf.SourceTableName = Tbl
dbs.TableDefs.Append tdf
dbs.Execute "CREATE INDEX PK_" & Tbl & " ON " & Tbl & "(Ключ)"
Здесь dbs - текущая база данных, Tbl - переменная, содержащая имя таблицы или представления на сервере/связанной таблицы в приложении, ODBC_String - строка связи с сервером.