Option Explicit
Public DSEdit As Boolean
 
Private Sub cmdPasswortAendernBestaetigen_Click()
DSEdit = True
:
:            
'Feldinhalte in Tabellenfelder schreiben
'HIER TRITT DER FEHLER AUF
AdodcPasswort.Recordset.Fields("Kuerzel") = txtKuerzel.Text
AdodcPasswort.Recordset.Fields("Passwort") = txtNeuesPasswortBestaetigen
 
'Eingaben speichern
AdodcPasswort.Recordset.Update
:
:
End Sub