Имеются таблицы на sql сервере. Имеются клиентские прилады, выполненные в MS Access, соединение через odbc.
Есть таблица "Ведомость" и таблица "Контрагенты" (связь: один ко многим). В форме клиентской части (*.mdb), на основе табл. "ведомость" есть поле со списком, основанное на табл "контрагенты". На полеСоСписком есть процедура на отсутствие в списке!

Dim Таблица As Object, Bz As Object
Set Bz = DBEngine.Workspaces(0).Databases(0)
Set Таблица = Bz.OpenRecordset("Котрагенты")
intMsgDialog = vbYesNo + vbQuestion + vbDefaultButton1
intNewCategory = MsgBox("Добавить новое ЛИЦО в список?", intMsgDialog, strTitle)
If intNewCategory = vbYes Then
DoCmd.RunCommand acCmdUndo
Таблица.AddNew
Таблица![Лицо] = NewData
Таблица.Update
Response = acDataErrAdded
End If
Когда таблицы были в *.mdb, при добавлении нового "контрагента" это все работало. Таблицы перенесла на sql, теперь не работает... ссылается на строку "Set Таблица....." . Подскажите как правильно написать?