Beim verändert wird Kennwort mit verändert

[thomson]

Hallo,
habe eine Maske um berechtigungen zu vergeben. Hierbei muss als erstes eun Passwort angelegt werden. Funktioniert alles wunderbar. Jetzt ist es aber so, das sich beim ändern eines Eintrags auch unbeabsichtigt das Kennwort verändert.
Finde den Fehler aber nicht!

  Dim Password As String
  Dim PasswordTemp As String
  Dim rsAccess As New Recordset
  Dim sAccess As String
  Dim nDL_ID As Long
  Dim nCount As Integer
  Dim oMD5 As CMD5
  Set oMD5 = New CMD5
 
  
  oRS.LockType = adLockOptimistic
  
  Password = oMD5.MD5(SWFed2.Text)
  Set oMD5 = Nothing
  
  ' User löschen, falls vorhanden
  oConn.Execute "DELETE FROM Users WHERE ID=" & SWFed1
  
  ' User anlegen
  oRS.Open "SELECT * FROM Users WHERE ID=-1", oConn
  oRS.AddNew
  oRS!Password = Password
  oRS!ID = SWFed1
  oRS!Full_Name = SWFed6
  oRS!Email = SWFed4
  oRS!Username = SWFed5
  oRS!Date_Added = SWFed3
  oRS.Update
  oRS.Close

  ' Zugriffsrechte löschen
  oConn.Execute "DELETE FROM Access WHERE UID=" & SWFed1
  
  rsAccess.LockType = adLockOptimistic
  rsAccess.Open "SELECT * FROM Access WHERE UID=-1", oConn, adOpenDynamic
  
  For nCount = 0 To lstPrograms.ListCount - 1
    If SW_Token(lstPrograms.ListText(nCount), 1, vbTab) = "1" Then
      rsAccess.AddNew
      rsAccess!UID = SWFed1
      rsAccess!DL_ID = Val(SW_Token(lstPrograms.ListText(nCount), 3, vbTab))
      rsAccess.Update
    End If
  Next
  
  rsAccess.Close

 

[thomson]

?

denke da das anlegen und editieren in der gleichen maske erfolgen, schreibt der mir das passwort eventuell doppellt Oder?