Access VBA: Löschen von Datensätzen

Private Sub BtnDelete_Click()

    '--------< BtnDelete_Click() >--------

    If vbYes = MsgBox("Möchten Sie die Abrechnung wirklich löschen", vbYesNo, "Löschenwarnung") Then

        Dim sSQL As String

        '< details >

        sSQL = "DELETE FROM tbl_Abrechnungen_Positionen WHERE [ID_Abrechnung]=" & ctlHead_ID_Abrechnung

        CurrentDb.Execute sSQL

        '</ details >

        '< master >

        sSQL = "DELETE FROM tbl_Abrechnungen WHERE [ID_Abrechnung]=" & ctlHead_ID_Abrechnung

        CurrentDb.Execute sSQL

        '</ master >

        DoCmd.Close acForm, Me.Name

    End If

    '--------</ BtnDelete_Click() >--------

End Sub