Удаление текущей записи формы

Private Sub cmdDelete_Click()

'Delete

'--------------------------------------------------------------------

Dim str As String

Dim Response As Integer

Dim x As Long

Dim frm As Form

'--------------------------------------------------------------------

On Error GoTo cmdDelErr

Response = MsgBox("Вы действительно собираетесь удалить запись?" & vbCrLf & _

"", vbOKCancel + vbQuestion + vbDefaultButton2, "Вопрос")

If Response = vbCancel Then Exit Sub

DoCmd.Close acForm, Me.Name

'Собственно удаление

str = "DELETE FROM dtNews WHERE NewsID=" & ARec

CurrentDb.Execute str

'Переход

DoCmd.OpenForm "NewsAll"

Exit Sub

cmdDelErr:

MsgBox "Произошла ошибка выполнения!" & vbCrLf & _

Err.Description & " - #" & Err.Number, vbCritical, "Ошибка выполнения!"

Err.Clear

End Sub

Или так:

'Запрос поддтверждения удаления записи при ответе НЕТ - остановка

If MsgBox("Действительно удалить ???", _

vbYesNo + vbCritical + vbDefaultButton1, _

"Удаление данных") = vbNo Then Exit Sub

Me.Recordset.Delete

DoCmd.Close acForm, Me.Name

DoCmd.OpenForm "Courses"