Private Sub Form_Unload(Cancel As Integer)
'Обработка события выгрузки формы.

'Перехват обработки ошибок.
On Error GoTo Err_Form_Unload


'
Me.RecordSource = Null


'Нормальное завершение процедуры.
Exit_Form_Unload:
    Exit Sub

'Обработка ошибок.
Err_Form_Unload:
    MsgBox Err.Description & vbCrLf & "Код ошибки: " & Err.Number, vbCritical, "Форма [Имя_формы] -> Sub [Form_Unload]"
    Resume Exit_Form_Unload

End Sub