Problemas para actualizar ADO con Dbgrid con puro Codigo

[JanoRod]

Hola A todos los maestros, me gustaria saber si alguien me podria ayudar de como poder actualizar el dbgrid con puro codigo, les detallo el siguiente codigo
, lo que no entiendo es cuando realizo todo esto por conexion directa, es decir, sin tantas conecciones funciona todo OK pero al realizarlo esto por codigo no funka , si alguien sabe cual es mi error porfavor explicarme


los dbgrid los conecto por codigo al igual que los otros controles haciendo la actualizacion adoquery1.close y luego adoquery1.open;

procedure Tmenu_principal.FormCreate(Sender: TObject);
var
conexion:string;
begin
conexion:=('Provider=Microsoft.Jet.Oledb.4.0;Data source=c:\inventario.mdb;Persist Security Info=false');
adoconnection1.ConnectionString :=conexion;
adoconnection1.Open ;
adoquery1.ConnectionString :=conexion;
adoquery1.Open ;
adoquery2.ConnectionString:=conexion;
adoquery2.Open ;
lista.Columns[0].FieldName :='unidad_medida';
lista.Columns[1].FieldName :='descripcion_und';
datasource2.DataSet :=adoquery2 ; //
dbgrid1.DataSource:=datasource2 ;
adoquery2.Close ;
adoquery2.Open ;
end;
procedure Tmenu_principal.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
adoquery1.Close;
with adoquery1 do begin
with adoquery1.SQL do begin
clear;
add (consultaSQL);
end;
open;
end;
if adoquery1.Eof then begin
'<guarda datos>
'aca deberia actualizar dbgrid1 (lista) pero no actualiza en que estoy MAL
end
else begin
<muestra datos guardados>
end;
end;
end;

si alguien me podria ayudar lo agradeceria
Saludos a Todos