Набор записей - динамический
Блокировка - изменяемой

Ни в форме, ни в таблице - объект Recordset не является изменяемым

Разрешения есть на все.
??

PK есть...
но трабл с таблицами, подключенными процедуркой, а подключаю еще раз ту же таблицу вручную - все ок

Public Function connect_sql() As Boolean
Dim MyDB As DAO.Database
Dim MyTable As DAO.TableDef
Set MyDB = CurrentDb
On Error GoTo errh

For Each MyTable In MyDB.TableDefs
If Left(MyTable.Connect, 4) = "ODBC" Then
tn = MyTable.NAME
MyDB.Execute ("drop table " & MyTable.NAME), dbFailOnError
Set MyTable = MyDB.CreateTableDef(tn)
MyTable.Connect = strConnect
MyTable.SourceTableName = tn
MyDB.TableDefs.Append MyTable
MyDB.TableDefs.Refresh
Set MyTable = Nothing
Set MyTable = MyDB.TableDefs(tn)
' Debug.Print MyTable.Connect; " "; MyTable.NAME; " "; MyTable.SourceTableName
End If
Next

Set MyDB = Nothing
connect_sql = True
Exit Function

errh:
Set MyDB = Nothing
MsgBox "Îøèáêà ïîäêëþ÷åíèÿ ê ñåðâåðó!"
MsgBox err.Description
connect_sql = False
End Function

2Shuhard смотри: ялинкую таблицу вышеприведенной процедурой. PK в таблице есть. Открываю таблицу в режиме таблицы - ни измений, ни добавления новой записи не дает. Линкую эту же таблицу руками (через "связь с таблицами") - все ок. Вопрос: в коде процедуры линковки что-то не так.

когда ликует процедура - не спрашивает, какое поле делать ключом, когда линкуешь руками - спрашивает...

РАЗОБРАЛСЯ!!!!!
Вот таблица:
CREATE TABLE [dbo].[dengi] (
[id] [int] IDENTITY (1, 1) NOT NULL ,
[firm_id] [int] NULL ,
[data] [datetime] NULL ,
[summa] [real] NULL ,
[pr_id] [int] NULL ,
[prim] [nvarchar] (50) COLLATE Cyrillic_General_CI_AS NULL ,
[mesto] [nvarchar] (50) COLLATE Cyrillic_General_CI_AS NULL
) ON [PRIMARY]

НО! При импорте сервер не перетянул или не построил первичный индекс по полю id!!!!!
После ручной постройки индекса все заработало!!!!!!!!!
Всем спасибо!!

уже я :)
а она просто лиНкует