Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String

    Set cn = CurrentProject.Connection
    Set rs = New ADODB.Recordset

    sql = "SELECT Сотрудники.Код, '' AS Рест, '' AS Брак FROM Сотрудники"


    rs.Source = sql
    rs.CursorLocation = adUseClient
    rs.LockType = adLockBatchOptimistic
    rs.CursorType = adOpenStatic
    
    rs.Open sql, cn
    rs.ActiveConnection = Nothing
    Set Me.Recordset = rs

на форме при внесении значения в поля "Рест" или "Брак " вылазит ошибка:
Макрос или функция, связанные со свойством "До обновления" (BeforeUpdate) или "Условие на значение" (ValidationRule) этого поля, не позволяют приложению 'Microsoft Access' сохранить данные в этом поле.

на этих событиях ничего нет. как победить вообще не понятно. прошу помощи сообщества.

http://www.sql.ru/forum/1250989/otvyazannyy-reordset-ne-udaetsya-sohranit-dannye-v-pole