Ошибка: End if without block if

If Not rst.EOF Then
With rst
.AddNew
.Fields("Дата") = Forms![ЖурналХозОп1]![Дата]
.Fields("Документ") = Forms![ЖурналХозОп1]![Документ]
.Fields("№ХозОперации") = Forms![ЖурналХозОп1]![№ХозОперации]
.Fields("Содержание") = Forms![ЖурналХозОп1]![Содержание]
.Fields("Дебет") = Forms![ЖурналХозОп1]![Дебет]
.Fields("Кредит") = Forms![ЖурналХозОп1]![Кредит]
.Fields("с") = Forms![ЖурналХозОп1]![с]
.Fields("по") = Forms![ЖурналХозОп1]![по]
.Fields("Табельный№") = rst2.Fields("Табельный № сотрудника")
.Fields("Сумма") = rst2.Fields("Summa")
.Update
End If