Busqueda....

[TKW04]

procedure Tfrmmenu.DBGrid2DblClick(Sender: TObject);
begin
ADOTable1.close;
DBEdit4.Text:=Busestudiantescodigo.Value;
ADOTable1.Open;
ADOTable1.Refresh;
Scroll_Nuevo.Visible:=true;
lbsol.Visible:=true;
DBComboBox6.Visible:=true;
Label4.Visible:=true;
DBComboBox7.Visible:=True;
ADOTable1.Edit;
Scroll_busquda.Visible:=false;
end;
end

este codigo es el qeu tengo en el evento doble click de mi dbgrid

donde Busestudiantescodigo es un adoquery