Option Explicit
 
Public DSEdit As Boolean
:
:
:
Private Sub cmdPasswortAendernBestaetigen_Click()
 
Dim RS As ADODB.Recordset
 
Set RS = .................................................(hier weiss ich nicht _
  was ich machen muss)
 
'Feldinhalte in Tabellenfelder schreiben
AdodcPasswort.Recordset.Fields("Kuerzel") = txtKuerzel.Text
AdodcPasswort.Recordset.Fields("Passwort") = txtNeuesPasswortBestaetigen
 
'Eingaben speichern
AdodcPasswort.Recordset.Update
:
: