Update einer Interbase Datenbank funktioniert nicht

[DeadMatt]

Hallo,

ich habe nun schon seit knapp 2 Tagen ein Problem was ich nicht zu loesen schaffe.
Ich will aus einer simpelen Interbase Datenbank etwas aktuallisieren und es klappt nicht.
Das Select funktioniert so:

Delphi-Quellcode:

s_sql := 'SELECT ID, VORNAME, NACHNAME, KUERZEL, ADMINISTRATOR FROM MITARBEITER WHERE KUERZEL = '+''''+Environment.UserName+'''';
  cmd   := BdpCommand.Create(s_sql, DBConnection2);
  DBConnection2.Open;
      trsa  := DBConnection2.BeginTransaction;
          datred  :=  cmd.ExecuteReader;
              while datred.read do
              begin
                  lbl_id.Text       := datred['ID'].ToString;
                  lbl_vorname.Text  := datred['VORNAME'].ToString;
                  lbl_nachname.Text := datred['NACHNAME'].ToString;
                  lbl_kuerzel.Text  := datred['KUERZEL'].ToString;
                  lbl_admin.Text    := datred['ADMINISTRATOR'].ToString;
              end;
          datred.Close;
      trsa.Commit;
      datred.Free;
  DBConnection2.Close;

aber das UPDATEN klappt nicht...hab das so ausprobiert:

Delphi-Quellcode:

        s_sql :='UPDATE MITARBEITER SET '+
        'ID = '+txt_id.Text+', '+
        'VORNAME = '+txt_vorname.Text+', '+
        'NACHNAME = '+txt_nachname.Text+', '+
        'KUERZEL = '+txt_kuerzel.Text+', '+
        'ADMINISTRATOR = '+txt_admin.Text+' '+
        'WHERE KUERZEL = '+Environment.UserName;

      cmd   := BdpCommand.Create(s_sql, DBConnection2);
      DBConnection2.Open;
        trsa  := DBConnection2.BeginTransaction;
        cmd.Transaction:=trsa;
        trsa.Commit;
      DBConnection2.Close;
      cmd.Free

Die Vars sind so deklariert:

Delphi-Quellcode:

s_sql:  string;
  cmd:    BdpCommand;
  trsa:   BdpTransaction;
  datred: BdpDataReader;

ich hoffe mir kann jemand helfen!