@cartrun: untuk jawaban no 1 km tinggal gini z. km simpen coddingnya di button yach. procedure TForm1.Button1Click(Sender: TObject); begin AdoQuery1.Close; AdoQuery1.SQL.Clear; AdoQuery1.SQL.Text:= 'Select From Data Where Jns_Klmn = ' + QuotedStr(Combobox1.Text); AdoQuery1.Open; End; untuk nomor 2 procedure TForm2.Button1Click(Sender: TObject); begin AdoQuery1.Close; AdoQuery1.SQL.Clear; AdoQuery1.SQL.Text:= 'Select From Data Where Umur >= ' + QuotedStr(Edit1.Text) + 'And Umur <= ' + QuotedStr(Edit2.Text); AdoQuery1.Open; End;

@ghopal: ok, sudah bisa, thx ya mo tanya nh mslh dbgrid, ukuran width kok bs berubah2x ya, kn sy sdh seting ukuran width nya (editing dbgrid columns sy seting), sy jlankan, sesuai yg sy inginkan, tp sy buat program lg/melanjutkan program tsb esok hari nya (kmptr sy matikan), tp kok bs berubah yaa ukuran width db grid nya. gmn caranya biar ukuran width nya tdk berubah2x lg ?? thx

procedure TForm1.FormCreate(Sender: TObject);
begin
      DBGrid1.Columns[0].Width := 50;
      DBGrid1.Columns[1].Width := 150;
      DBGrid1.Columns[2].Width := 250;
end;