speicherung in der datenbank funktioniert immer noch nicht..

[Sulustaner2004]

Also irgendwie kann ich machen was ich will...diese verdammt speicherung in der datenbank klappt einfach nicht...
ich kann auf den button klicken und nichts tut sich...
jetzt habe ich schon den quellcode aus einen anderen programm von mir genommen wo er funktioniert hat und das resultat war gleich null
ich weiß nicht mehr was ich machen soll...

Delphi-Quellcode:

var versflid :string;
begin
versflid:=adoquery1.fieldbyname('versuchs_id').AsString;
  if (tb_versuch_id.Text ='') then
      showmessage ('Bitte was eintragen.');

   if  adoquery1.Locate('Versuchs_ID',tb_versuch_id.Text,[])then

      adoquery1.FieldByName('Versuchs_ID').AsInteger;

    with adoquery1 do
     begin
     close;
     sql.Clear;
     sql.Add('SELECT dbo_Versuchsflaechen_ST.Versuchs_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:=tb_versuch_id.Text;
     adoquery1.Post;
     tb_versuch_id.Clear;
     adoquery1.Next;
    end;
  end;

es hat leider auch nicht mit euren vorschlägen weiter oben in der anfrage geklappt...
ich bin echt am verzweifeln...