ошибка

If Me.GrRabot = 1 Then
        'подсветка ячеек
        Dim rstt As DAO.Recordset
   
    
        Set rstt = CurrentDb.OpenRecordset("ЗапДоговор", dbOpenDynaset)
        With rstt
        Do Until .EOF = True
        'If ![Счет аванс] <> "" Then !Подсветка = "*"
        rstt.Edit
        'удаление всех подсветок
        !Подсветка1 = "-"
        !Подсветка2 = "-"
        !Подсветка3 = "-"
        'установка всех подсветок
        !Подсветка1 = IIf(Nz(![Счет аванс], 1) = 1, "*", "-")
        
        Select Case Nz(![Имя исполнителя], 999)
        Case 0
        !Подсветка2 = "*"
        Case 999
        !Подсветка2 = "*"
        Case Else
        !Подсветка2 = "-"
        End Select
        
        '!Подсветка2 = IIf(![Имя исполнителя] = 0, "*", "-")
        '!Подсветка2 = IIf(Nz(![Имя исполнителя], 999) = 999, "*", "-")
        'If [Имя исполнителя] = "" Then !Подсветка2 = "*" Else !Подсветка2 = "-"
        
        
        rstt.Update
           
        .MoveNext
        Loop
    End With

  'поля и элементы управления
  Me.PoleRabDo.Visible = False
  Me.PoleRabDo.Enabled = False
  Me.PoleRabOt.Visible = False
  Me.PoleRabOt.Enabled = False
  Me.Кнопка233.Visible = False
  Me.Кнопка233.Enabled = False
  
  Else
'**************** Подсветка ****************
            Dim pod As DAO.Recordset
            Dim kodDog As Integer
    
            Set pod = CurrentDb.OpenRecordset("ЗапДоговор", dbOpenDynaset)
            Dim s1 As String 'переменная подсветки ***********************
            With pod
            Do Until .EOF = True
            'If ![Счет аванс] <> "" Then !Подсветка = "*"
            pod.Edit
            'удаление всех подсветок
            '!Подсветка1 = "-"
            '!Подсветка2 = "-"
            !Подсветка3 = "-"
            'установка всех подсветок
            '!Подсветка1 = IIf(Nz(![Счет аванс], 1) = 1, "*", "-")
            '[!Подсветка2 = IIf(![Имя исполнителя] = 0, "*", "-")
            '!Подсветка2 = IIf(Nz(![Имя исполнителя], 999) = 999, "*", "-")
            'If [Имя исполнителя] = "" Then !Подсветка2 = "*" Else !Подсветка2 = "-"
            If DCount("[Код акта]", "[ЗапПлан]", "[Код договора]=" & ![Код договора]) <> 0 Then
                 'лазаем по актам
                 Dim dvig As DAO.Recordset
                 
                kodDog = ![Код договора]
                 Set dvig = CurrentDb.OpenRecordset("SELECT * FROM ЗапПлан WHERE [Код договора]=" & ![Код договора], dbOpenDynaset)
                 With dvig
                 Do Until .EOF = True
                 'If ![Счет аванс] <> "" Then !Подсветка = "*"
                 If IsNull(DLookup("[Номер акта]", "[ЗапВыполнение]", "[Номер акта]=" & ![Номер акта] & " and [Код договора]=" & kodDog)) Then
                    If Month(DLookup("[Дата]", "[ЗапПлан]", "[Номер акта]=" & ![Номер акта] & " and [Код договора]=" & kodDog)) >= Month(Date) Then
                    s1 = "^"
                    Else
                    s1 = "<"
                    End If
                 Else
                 s1 = "-"
                 End If
                 .MoveNext
                 Loop
                 End With
                 !Подсветка3 = s1
             Else
             'лазаем по полю окончание работ
               If IsNull(![Окончание работ]) Then
                'пустая строка ****************
                Else
                If Month(![Окончание работ]) >= Month(Date) Then
                s1 = "^"
                Else
                s1 = "<"
                End If
                !Подсветка3 = s1
                End If
             
             
             
             
             
             
             
             End If
             
             
        
            pod.Update
               
            .MoveNext
            Loop
            End With
  
  
  
  
  'поля и элементы управления
  Me.PoleRabDo.Visible = True
  Me.PoleRabDo.Enabled = True
  Me.PoleRabOt.Visible = True
  Me.PoleRabOt.Enabled = True
  Me.Кнопка233.Visible = True
  Me.Кнопка233.Enabled = True
  
 
  
  End If
  

Call FilterForm