Datenmenge weder im Editier noch im Einfügemodus

[hirsch]

Sorry Soll heißen: Interbase Ver. 6.0


Nachdem ich nun mehrere Tage mit dem Fehler zugebracht habe und eigentlich alles gelesen und ausprobiert habe, komme ich nicht weiter.
Ich hoffe dass mir jemand weiterhelfen kann.

Delphi-Quellcode:

       sql:='Select * from Teil2710 where ART_SCHN = '''+EDSch.text+''';';
       With DataModule1.CDSArtikel do begin
         if DataModule1.SQLDSArtikel.Active=True then DataModule1.SQLDSArtikel.Active:=False;
         if Active=True then Active:=False;
         DataModule1.SQLDSArtikel.commandText:=sql;
         DataModule1.SQLDSArtikel.Active:=True;
         Active:=True;
         DataModule1.SQLDSArtikel.refresh;
         refresh;
         if recordcount=1 then begin
           FieldByName('ART_GR').asstring:=Art_grp; //<<hier kommt der beschriebene Fehler
           FieldByName('ART_NR').asstring:=Art_Num;
           if State<>dsEdit then
             Edit;
           FieldByName('Bemerkung').asstring:=Bem;
           FieldByName('ART_GR').asstring:=Art_Grp;
           FieldByName('ART_NR').asstring:=Art_Num;
           Post;
           ApplyUpdates(-1);
         end else
           Showmessage('Die Bemerkung konnte nicht eingetragen werden');

         active:=False;
         DataModule1.SQLDSArtikel.Active:=False;
         Art_Grp:='';
         Art_Num:='';
         edSch.Text:='';
         b_merker:=False;

Weiß jemand Rat?