delphi中的DBGrid无法刷新数据

初学delphi，通过DBGrid显示数据表的记录，不知为何每次打开子窗体数据不会刷新？而要关闭整个程序再重新打开才能看到新数据
代码如下：
procedure Tprodgrid.FormCreate(Sender: TObject);
begin
  ADOQuery1.Active := false;
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'select * from prodinfo';
  ADOQuery1.Open;
  ADOQuery1.Active := true;
end;