Private Sub Report_NoData(Cancel As Integer)
MsgBox "He найдены записи, удовлетворяющие указанным_
условиям.", vbExclamation, "Записи не найдены"
rstReport.Close Cancel = True
End Sub