Как удалить текущую запись в ленточной форме?

Private Sub Кнопка6_Click()
Me.Recordset.Delete
End Sub

If Not Me.NewRecord Then Me.Recordset.Delete
If Me.NewRecord Then Me.Recordset.AddNew Else Me.Recordset.Bookmark = Me.Bookmark

If Not Me.NewRecord Then DoCmd.RunCommand acCmdDeleteRecord

Private Sub Удалить_Click()
    On Error GoTo Err_Удалить_Click
    Me.Recordset.Bookmark = Me.Bookmark
    Me.Recordset.Delete
    Me.Refresh
Exit_Удалить_Click:
    Exit Sub
Err_Удалить_Click:
    MsgBox Err.Description
    Resume Exit_Удалить_Click
End Sub

Private Sub Удалить_Click()
    On Error GoTo Err_Удалить_Click
'Запрос поддтверждения удаления записи при ответе НЕТ - остановка
    If MsgBox("Действительно удалить ???", _
        vbYesNo + vbCritical + vbDefaultButton2, _
        "Удаление данных") = vbNo Then Exit Sub
 
'Удаление ....
    Me.Recordset.Delete
    Me.Refresh
Exit_Удалить_Click:
    Exit Sub
Err_Удалить_Click:
    MsgBox Err.Description
    Resume Exit_Удалить_Click
End Sub

Private Sub Удалить_Click()
On Error GoTo Err_Удалить_Click
    Dim Response As Integer
    Response = MsgBox("Вы уверены, что хотите удалить запись?", vbYesNo, "Удалить запись?")
    If Response = vbYes Then
        Me.Recordset.Bookmark = Me.Bookmark
        Me.Recordset.Delete
        Me.Refresh
        Exit Sub
    Else: Exit Sub
Exit_Удалить_Click:
    Exit Sub
    End If
Err_Удалить_Click:
    MsgBox Err.Description
    Resume Exit_Удалить_Click
End Sub

Private Sub btnNZPVerhDelete_Click()
    If MsgBox("Удалить запись? Действие необратимо!", vbYesNo + vbInformation, "Удаление") = vbYes Then
        Dim Conn As ADODB.Connection
        Set Conn = CurrentProject.Connection
        
        With Conn
            .BeginTrans
            .Execute "DELETE tblNZPVerh WHERE ID_NZPVerh = " & Me.[фрмЗН_КС6_03].Form!ID_NZPVerh
            .CommitTrans
        End With
        
        Me.[фрмЗН_КС6_03].Form.Refresh
        
        Set Conn = Nothing
        Exit Sub
    Else
        Exit Sub
    End If
 
End Sub