как обновить DBGrid

[bmb_66]

Привет форумчане.
Во первих извиняюс, может аналогичная тема лежит на форуме, но конкретизации ни где не нашел.

Вопрос вот вчем: На форме лежат (параметри относительние) Edit1,
Label1, BitBtn1, DBGrid1.
DBGrid1 подключен к БД Access с помошю ADOConnection1, ADOQuery1, DataSource1.
SQL запрос для ADOQuery1:
SELECT*
FROM таблица2
WHERE колонка2='????????'

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
if DataModule2.ADOQuery1.RecordCount>0 then
begin
Form1.Edit1.Text:=DataModule2.ADOQu ery1.FieldValues['bar'];
Form1.Label1.Caption:=DataModule2.A DOQuery1.FieldValues['ID'];
end;
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
var
mon1: string;
begin
if not(Form1.Edit1.Text='') then
begin
DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.SQL.Clear;
mon1:='UPDATE таблица2 SET bar='+''''+Edit1.Text+''''+'';
mon1:=mon1+'WHERE ID='+label32.Caption;
DataModule2.ADOQuery1.SQL.Add(mon1) ;
DataModule2.ADOQuery1.ExecSQL;
DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.Open;
end;

после нажатия кнопки БД Access обновляется а в DBGrid1 не видна ни однои строки.

посдкажите пожалуста как ето исправит.