При повторном появлении ошибки обработка ошибки не срабатывает

Private Sub btnAddName_Click()
        Dim nameStud As String
        
        Dim rstStud As DAO.Recordset   ' Студенты
        Dim rstGroupStud As DAO.Recordset ' ГруппыСтуденты
        
       Set rstStud = CurrentDb.OpenRecordset("тбл_02_Студенты", dbOpenSnapshot)  'Только просмотр
       Set rstGroupStud = CurrentDb.OpenRecordset("тбл_03_ГруппыСтуденты", dbOpenDynaset)  ' Редактирование
                  
        'Перебор всех записей в наборе
            With rstStud
                Do Until .EOF = True 'Цикл до конца набора
                    nameStud = !ИмяСтудента
                
                ' Обработка ошибки
                    On Error GoTo errend
                    ' Call AddRecordInRstGroupStud(nameStud)
                             With rstGroupStud
                                    .AddNew
                                    'Заполнение полей значениями
                                    !ИДГруппы = Me.ИДГруппыФрм
                                    !ИмяСтудента = nameStud
                                    ' nameStud
                                    .Update
                              End With
                              rstGroupStud.Close
                              Me.фрм_04_ГруппыСтуденты.Requery
                    Exit Sub
errend:
                    .MoveNext
                Loop
            End With
            
            On Error Resume Next
            rstStud.Close
            Set rstStud = Nothing
 
End Sub

            rstGroupStud.Close
            Me.фрм_04_ГруппыСтуденты.Requery
            Exit Sub
NextStud:
            .MoveNext
        Loop
    End With
            
    On Error Resume Next
    rstStud.Close
    Set rstStud = Nothing
errend:
    Resume NextStud
End Sub