обновление данных

[LER44IKK]

данные добавляются после перезапуска программы, как сделать так чтобы данные отображались сразу в таблице?

procedure TForm5.Button1Click(Sender: TObject);
begin

DataModule3.AdoQuery1.SQL.text:='se lect*from Lichnaya_kartochka';
DataModule3.AdoQuery1.close;
DataModule3.adoQuery1.Insert;
DataModule3.adoQuery1.FieldByName(' familiya').AsString := Edit1.Text;
DataModule3.adoQuery1.FieldByName ('Imya').AsString:=Edit2.text;
DataModule3.adoQuery1.FieldByName ('Otchestvo').AsString:=Edit3.text;
DataModule3.adoQuery1.FieldByName ('Pol').AsString:=ComboBox1.text;
DataModule3.adoQuery1.FieldByName(' Data_rojdeniya').AsDateTime := StrToDate(MaskEdit1.Text);
DataModule3.adoQuery1.FieldByName ('Data_priema').AsDateTime:=StrToDa te(maskEdit2.Text);
DataModule3.adoQuery1.FieldByName ('Id_Prof_Kachestva').AsInteger:=St rToint(Edit4.text);
DataModule3.adoQuery1.FieldByName ('Id_passportnie_dannie').AsInteger :=StrToint(Edit5.text);
DataModule3.AdoQuery1.Post;
DataModule3.AdoQuery1.open;;
DataModule3.AdoQuery1.Close;

end;

[Gulik]

А что за база?
Я полагаю что базу нельзя закрывать когда хотите добавить туда запись

procedure TForm5.Button1Click(Sender: TObject);
begin

DataModule3.AdoQuery1.SQL.Text := 'SELECT * FROM Lichnaya_kartochka' ;
DataModule3.AdoQuery1.Close ;
DataModule3.AdoQuery1.Open ;
DataModule3.adoQuery1.Insert ;
DataModule3.adoQuery1.FieldByName(' familiya').AsString := Edit1.Text ;
DataModule3.adoQuery1.FieldByName ('Imya').AsString := Edit2.Text ;
DataModule3.adoQuery1.FieldByName ('Otchestvo').AsString := Edit3.Text ;
DataModule3.adoQuery1.FieldByName ('Pol').AsString := ComboBox1.Text ;
DataModule3.adoQuery1.FieldByName(' Data_rojdeniya').AsDateTime := StrToDate(MaskEdit1.Text) ;
DataModule3.adoQuery1.FieldByName ('Data_priema').AsDateTime := StrToDate(MaskEdit2.Text) ;
DataModule3.adoQuery1.FieldByName ('Id_Prof_Kachestva').AsInteger := StrToInt(Edit4.text) ;
DataModule3.adoQuery1.FieldByName ('Id_passportnie_dannie').AsInteger := StrToInt(Edit5.text) ;
if DataModule3.AdoQuery1.Modified then
DataModule3.AdoQuery1.Post ;

end;