Insert usando componentes Interbase

[valeria]

Hola a todos estoy comensando a usar Firebird y para ello estoy usando los componentes Interbase utiso un Ibdatabase,IbTransaction y un ibdataset ahora bien realiso primero un select utilisando la primer sentencia:

self.IBDataSet1.Close;
sSQL:= 'select * from PRODUCCION where ID=(select max(ID) from PRODUCCION)';
self.IBDataSet1.SelectSQL.Text:= sSQL;
self.IBDataSet1.Open;
AUX:= self.IBDataSet1.fieldByNAme('FECHA').AsString;
self.IBDatabase1.Close;

self.IBDataSet1.Open;
self.IBDataSet1.Insert;
self.IBDataSet1.FieldByName('ID').AsInteger:=1;
self.IBDataSet1.FieldByName('FECHA').AsString:= AUX;
self.IBDataSet1.Post;
self.IBTransaction1.CommitRetaining;

el select lo realiza bien ya que utilizo un Breakpoints y tira el valor deseado,ahora bien cuando va a realizar el insert tira el siguiente error: IBDataset1:field ID not found,lo raro de esto es que si yo saco el select y dejo solamente el insert lo inserta sin problemas....la verdad que hace varios dias que estoy con esto y no se donde puede estar el error....bueno muchisimas gracias!