刷新的问题???

////点击插入按纽:然后在dbgrid中显示SQL查询记录,但是点过插入按纽后不能马上显示查询结果,我看了数据表,这一条数据已经添进去了,就是在dbgrid中不显示,要手工DBEdit3Change一次,有时几次才显示.请各位专家帮我看看,这个问题已经困扰我几天了.!!!!!!!!!!!!
procedure TForm1.Button1Click(Sender: TObject);
begin
adotable2.Open;
adotable2.InsertRecord([nil,dbedit3.text,datetimepicker3.date,edit2.Text]);
DBEdit3Change(Sender);
end;procedure TForm1.DBEdit3Change(Sender: TObject);
begin
//////////////////////设备保养///////////////////////////
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.ConnectionString:=('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zysb.mdb;Persist Security Info=False');
adoquery2.sql.add(' select date as 日期,bynr as 保养内容');
adoquery2.sql.add(' from byjl');
adoquery2.sql.add(' where byjl.sbid='''+dbedit3.text+''' order by date');
datasource3.DataSet:=adoquery2;
adoquery2.open;
adoquery2.Active:=true;
//////////////////////故障记录///////////////////////////
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.ConnectionString:=('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zysb.mdb;Persist Security Info=False');
adoquery3.sql.add(' select date as 日期,gzxx as 故障现象,gzcl as 故障处理');
adoquery3.sql.add(' from gzjl');
adoquery3.sql.add(' where gzjl.sbid='''+dbedit3.text+''' order by date');
datasource4.DataSet:=adoquery3;
adoquery3.open;
end;