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

Private Sub cmdDelete_Click()
    'Запрос подтверждения при ответе НЕТ - остановка
    If Me.NewRecord = False Then
        If MsgBox("Действительно удалить запись?" & vbCrLf & _
            "Событие ID: " & Me!EventID & vbCrLf & vbCrLf & _
            "При ответе [Да] - запись будет удалена.", _
            vbYesNo + vbQuestion + vbDefaultButton2, "Удаление записей") = vbNo Then Exit Sub
    
        Me.Recordset.Delete 'Удаление записи
        'Обновлениие списка
        If FormIsLoaded(csParentFormName) Then Forms(csParentFormName).Requery
    Else
        Me.Undo
    End If
    DoCmd.Close acForm, Me.Name
End Sub

Или так:

Dim Response As Integer
    Response = MsgBox("Вы уверены, что хотите удалить запись?", _
            vbQuestion + vbYesNo, "Удалить запись?")
    If Response = vbYes Then
        Me.Recordset.Delete
        Me.Refresh
    End If

Или так:

    If Me.NewRecord = False Then
        'ЗЗапрос подтверждения удаления записи при ответе НЕТ - остановка
        If MsgBox("Действительно удалить ???", vbYesNo + vbQuestion + vbDefaultButton2, _
            "Удаление данных") = vbNo Then Exit Sub
        Me.Recordset.Delete
    Else
        Me.Undo
    End If
    
    DoCmd.Close acForm, Me.Name
    'DoCmd.OpenForm "..."