Private Sub EditAendernKundenButton_Click()
constart
Dim Kundenedit As New ADODB.Recordset
Dim suchSQL As String
Dim x As String
 
 
suchSQL = "Select * from Kunden where KD_KundenNr Like '" & _
  KundenNrAnzeige.Text & "'"
With Kundenedit
    .ActiveConnection = DB
    .Source = "Kunden"
    .LockType = adLockOptimistic
    .Open suchSQL
End With
 
Kundenedit!KD_Anrede = txtKde(0).Text
Kundenedit!KD_KName = txtKde(1).Text
Kundenedit!KD_KVorname = txtKde(2).Text
Kundenedit!KD_Strasse = txtKde(3).Text
Kundenedit!KD_PLZ = txtKde(4).Text
Kundenedit!KD_Ort = txtKde(5).Text
Kundenedit!KD_Telefon = txtKde(6).Text
Kundenedit!KD_Fax = txtKde(7).Text
Kundenedit!KD_Email = txtKde(8).Text
 
Kundenedit.Update
Kundenedit.Close
 
 
End Sub