Линк SQL таблицы и индекс

Sergiol72
Дата: 23.11.2009 16:38:53
Коллеги, добрый день.

Дано: SQL таблица - Spares, клиент - Access
линкую программно эту таблицу:
Sub Link()
Dim dbCurrent As Database
Dim tdTarget As TableDef
Dim fldLoop As Field
Set dbCurrent = CurrentDb()
Set tdTarget = dbCurrent.CreateTableDef("spares")
tdTarget.Connect = "ODBC;DSN=IDUSISREPORT;APP=Microsoft Office 2003;DATABASE=IDUS4;Trusted_Connectipon=Yes;Table=spares"
tdTarget.SourceTableName = "spares"
dbCurrent.TableDefs.Append tdTarget
dbCurrent.Close
Set tdTarget = Nothing

End Sub

Получаю таблицу только для чтения. Если вручную ее подключать через ODBC-спрашивает однозначный индекс, указываю поле id и вуаля-таблица с полным доступом.
Хочу полный доступ программно! Как? Спасибо.
ё
Дата: 23.11.2009 16:52:18