Private Sub EditLoeschenLiefererButton_Click()
Dim Lieferloesch As New ADODB.Recordset
Dim Such1SQL As String
Dim x As String
Dim z As Integer
 
Such1SQL = "Select * from Lieferer where LD_LiefererNr Like '" & _
  LiefererNrAnzeige.Text & "'"
'Durch die SQL Anweisung sucht er den zutreffenden Datensatz
 
With Lieferloesch
    .ActiveConnection = DB
    .Source = "Lieferer"
    .LockType = adLockOptimistic
    .Open Such1SQL
End With
 
Lieferloesch!LD_Firmenname = txtLief_Ed(0).Text
Lieferloesch!LD_Anrede = txtLief_Ed(1).Text
Lieferloesch!LD_Ansprechpartner = txtLief_Ed(2).Text
Lieferloesch!LD_Strasse = txtLief_Ed(3).Text
Lieferloesch!LD_PLZ = txtLief_Ed(4).Text
Lieferloesch!LD_Ort = txtLief_Ed(5).Text
Lieferloesch!LD_Telefon = txtLief_Ed(6).Text
Lieferloesch!LD_Fax = txtLief_Ed(7).Text
Lieferloesch!LD_Email = txtLief_Ed(8).Text
Lieferloesch!LD_Homepage = txtLief_Ed(9).Text
 
x = MsgBox("Wollen Sie den Datensatz wirklich löschen?", 36, "Achtung!")
If x = 6 Then
Lieferloesch.Delete
With ListViewLiefererEdit
    .ListItems.Remove.SelectedItem.Index
End With
ListViewLiefererEdit.SetFocus
End If
End Sub