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

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 + vbCritical + vbDefaultButton2, _
            "Удаление данных") = vbNo Then Exit Sub
            Me.Recordset.Delete
            'Me.RecordSource = Me.RecordSource
    Else
        Me.Undo
    End If
    
    DoCmd.Close acForm, Me.Name
    'DoCmd.OpenForm "..."