Problemas con Firebird y DBGrid

[RoyTan]

Saludos, mi consulta es la siguiente.
Con la inserción de datos no tengo problemas, el problema es cuando regreso al formulario donde tengo el DBGrid, los datos que había han desaparecido.
Lo que quiero decir es que cada vez que hago una inserción en la base de datos, los datos del DBGrid desaparecen, he probado refrescando el DBgrid pero nada, sigue sin mostrarlo.
Este es el código, no se si he hecho algo mal, lo mio no es SQL.

Gracias.

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(1,2,3)';

       ModuloDatos.IBQAgenda.ParamByName('p1').AsInteger  := StrToInt(ECodigo.Text);
       ModuloDatos.IBQAgenda.ParamByName('p2').AsDate     := MEFechaA.Date;
       Modulodatos.IBQAgenda.ParamByName('p3').AsString    := EDescripcion.Text;

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