If con.State = 1 Then
 
   If intUser <> 0 Then
      con.execute "UPDATE User SET(" & _
                            "Benutzername='" & Me.txtusername.Text & "'," & _
                            "Name='" & Me.txtName.Text & "'," & _
                            "Vorname='" & Me.txtVorname.Text & "'," & _
                            "Administrator=" & Me.chkAdmin.Value & " " & _
                            "WHERE PK_UserID=" & Me.mshdbgrdMA.TextMatrix( _
                            intRow, 0) & "" 
 
     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
 
         con.execute "INSERT INTO User (Benutzername, Name, Vorname," & _
           "Administrator) VALUES (" & _
                               "'" & Me.txtusername.Text & "'," & _
                               "'" & Me.txtName.Text & "'," & _
                               "'" & Me.txtVorname.Text & "'," & _
                               "" & Me.chkAdmin.Value& ")"
 
         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