Fórum Problemas com Inclusão seguido de consulta Access #184816

Olá pessoal, estou tendo um problema assim :

Estou fazendo uma inclusão no banco de dados access XP com o componente ADOTABLE , logo em seguida a inclusão dos dados eu chamo uma consulta utilizando ADODATASET para atualizar meu dbgrid, o problema é que o registro não aparece, é necessário umas 3 consultas seguidas para o bendito aparecer, pq acontece essa demora ?

só para base estou enviando o código que estou utilizando :

AdoTable1.FieldByName(´Mesa´).Value := dbEdit1.text;
AdoTable1.FieldByName(´CodProdVendas´).Value := dbEdit2.text;
AdoTable1.FieldByName(´Qtd´).Value := dbEdit3.text;
AdoTable1.FieldByName(´Codfunc´).Value := dbEdit4.text;
AdoTable1.FieldByName(´Horavenda´).Value := dbEdit10.text;
AdoTable1.FieldByName(´Datavenda´).Value := dbEdit11.text;
AdoTable1.FieldByName(´Statusmesa´).Value := dbEdit12.text;
AdoTable1.FieldByName(´Valorvenda´).Value := dbEdit14.text;
adotable1.Post;
adotable1.Insert;

dbedit1.setfocus;

With ADoDataSet1 do Begin
Close;
CommandText := ´Select CodVendas,Mesa,codprodvendas,descricao,qtd,valorvenda,horavenda,datavenda, nome ´
+ ´ From Tabvendas, Produtos, funcionarios´
+ ´ where mesa = :pMesa and statusmesa=´´Aberta´´ and codprodvendas = codigoprod and codigo = codfunc´;
Parameters.paramByName(´pMesa´).Value := label11.Caption;
Open;
End;

With ADoDataSet2 do Begin
Close;
CommandText := ´SELECT Sum(QTD) AS QTD1,SUM(VALORvenda * qtd) AS CUSTOTOT´
+ ´ From Tabvendas, Produtos´
+ ´ where mesa = :pMesa and statusmesa=´´Aberta´´ and codprodvendas = codigoprod´;
Parameters.paramByName(´pMesa´).Value := Label11.Caption;
Open;
end;



[]´s