===============
人生在勤,不索何获? 
===============

//先要確認AdoQuery1->DataSource->DBGrid     procedure TForm1.ComboBox1Click(Sender: TObject);
var
  iSelect: integer;
begin
  If ComboBox1.ItemIndex <> -1 Then Begin
    iSelect := ComboBox1.ItemIndex;
    ADOConnection1.GetFieldNames(ComboBox1.Items.Strings[iSelect],Memo1.Lines);
    // 隨所選的TableName動態查詢資料
    With AdoQuery1 Do Begin
      Close;
      SQL.Text := 'Select * From ' ComboBox1.Items.Strings[iSelect] ;
      Open;
    End;
  End;    end;