Private Sub EditLoeschenLiefererButton_Click()
Dim Lieferloesch As New ADODB.Recordset
Dim x As String
 
With Lieferloesch
    .ActiveConnection = DB
    .Source = "Lieferer"
    .LockType = adLockOptimistic
    .Open Options:=adCmdTable
End With
 
x = MsgBox("Wollen Sie den Datensatz wirklich löschen?", 36, "Achtung!")
If x = 6 Then
Lieferloesch.Delete
ListViewLiefererEdit.ListItems.Remove
ListViewLiefererEdit.SetFocus
End If
End Sub