ник: Ники
Таблица Таб1 – связанная (в коде опустил объявление других переменных, присвоения и пр.) По коду останов происходит на строке 5
Function ТаблБ()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Таб1", dbOpenTable)
Далее идут циклы, открытие др. рекордсетов и т.д. Но самое интересное то, что до разделения базы все работало идеально. Может не подключены какие то библиотеки кроме “Mirkrosoft DAO 3.6 Objects Library” ?