Problemas con Firebird y DBGrid

[RoyTan]

Código Delphi [-]
procedure TF_AAgenda.BAnadirClick(Sender: TObject);
begin
     if trim(ECodigo.Text)  = '' then
      Begin
       ShowMessage('El campo CODIGO no puede quedar vacío.');
       ECodigo.SetFocus;
      End
     else
      Begin
       ModuloDatos.IBQAgenda.Close;
       ModuloDatos.IBQAgenda.SQL.Text := 'insert into AGENDA Values(pb1,pb2,pb3)';

       ModuloDatos.IBQAgenda.ParamByName('pb1').AsInteger  := StrToInt(ECodigo.Text);
       ModuloDatos.IBQAgenda.ParamByName('pb2').AsDate     := MEFechaA.Date;
       Modulodatos.IBQAgenda.ParamByName('pb3').AsString   := EDescripcion.Text;

       ModuloDatos.IBQAgenda.ExecSQL;
       ModuloDatos.IBQAgenda.transaction.commitretaining;
       ShowMessage('Registro insertado con Exito');
      End;
end;

Ya he hecho la modificación y nada sigue sin aparecer los datos en el grid.

Y lo siento Caral no entiendo lo que quieres decir.

Gracias.