インデックスを作成する void __fastcall TForm1::Button8Click(TObject *Sender) { Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名を入力 Variant db = de.Exec(Function("OpenDatabase")<<Edit3->Text<<false<<false); //Edit4 に テーブル名を入力 Variant td = db.Exec(PropertyGet("TableDefs")<<Edit4->Text); …</false<<false);></edit3->