speicherung in der datenbank funktioniert immer noch nicht..

[Sulustaner2004]

Wer kann mir helfen und mir sagen warum das programm die anweisung nicht in die datenbank schreibt...
er soll aus einem textfeld mit dem namen tb_versuch_id eine nummer in das entsprechende feld der tabelle in der datenbank schreiben....
das feld in der tabelle heißt versuchs_id

hier ist der auszug aus meinem quellcode

Delphi-Quellcode:

procedure Tversuch.CB_TakeClick(Sender: TObject);
var versflid :string;
begin
 versflid:=adoquery1.fieldbyname('versuchs_id').AsString;
  begin
  if  adoquery1.Locate('versuchs_id',tb_versuch_id.Text,[]) then

    begin
     with adoquery1 do
     begin
     sql.Clear;
     close;
     sql.Add('SELECT dbo_Versuchsflaechen_ST.Versuchsfl_ID,');
     sql.Add('dbo_Versuchsflaechen_ST.Versuchsfl_Bezeichnung, dbo_Versuchsflaechen_ST.Versuchs_ID,');
     sql.Add('FROM dbo_Versuchsflaechen_ST');
     sql.add('WHERE dbo_Versuchsflaechen_ST.Versuchsfl_Bezeichnung ='+quotedstr(versflid));
     open;
     end;

  while not adoquery1.Eof do
    begin
     adoquery1.Edit;
     adoquery1.FieldByName('versuchs_id').asstring;
     adoquery1.Post;
     adoquery1.Next;
     end;
    end;
   end;
  end;
end.

bin langsam aber sicher am verzweifeln...