Dim db As Database, rs As Recordset, tb As TableDef, i As Integer                   Npol = Mid([Forms]![Ïîëèñû]![Íîìåð], 1, 4) + Me!tNumber   Set db = OpenDatabase("С:\.....") Set rs = db.OpenRecordset("Name", dbOpenDynaset) rs.MoveFirst Do Until rs.EOF       If Npol = rs!ColumnName; Then Me.Поле 33= "yes"        Loop    rs.MoveNext

При выполнение вылазит ошибка "Записи не могут быть прочитаны. Отсутствует разрешение на чтение таблицы Name".