If con.State = 1 Then
 
   If intUser <> 0 Then
 
      rs.Open "SELECT * FROM User WHERE PK_UserID =" & CInt( _
        Me.mshdbgrdMA.TextMatrix(intRow, 0)) & "", con, adOpenDynamic, _
        adLockOptimistic
 
      'übergibt die daten an die datenbank
      rs("Benutzername") = Me.txtusername.Text
      rs("Name") = Me.txtName.Text
      rs("Vorname") = Me.txtVorname.Text
      rs("Administrator") = Me.chkAdmin.Value
 
      rs.Update
      rs.Close
 
      Call flexgrid_refresh  'flexgrid wird neu geladen und die textfelder 
      ' geleert
      MsgBox "Der Datensatz wurde geändert."
 
   Else
 
      If intUser = 0 And Me.txtusername.Text <> "" And Me.txtName.Text <> "" Then
 
         rs.Open "user", con, adOpenDynamic, adLockOptimistic
         rs.AddNew
 
         'übergibt die daten an die datenbank
         rs("Benutzername") = Me.txtusername.Text
         rs("Name") = Me.txtName.Text
         rs("Vorname") = Me.txtVorname.Text
         rs("Administrator") = Me.chkAdmin.Value
 
         rs.Update
         rs.Close
 
         Call flexgrid_refresh   'flexgrid wird neu geladen und die textfelder 
         ' geleert
         MsgBox "Der Datensatz wurde gespeichert."
 
      Else
 
         MsgBox "Bitte geben Sie den Namen und die Benutzerkennung des" & _
           "Mitarbeiters ein."
 
      End If
   End If
End If