追加クエリー procedure TForm1.Button15Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database qd:Variant;//QueryDef begin de := CreateOleObject('DAO.DBEngine.36'); //Edit3 に mdbファイル名を入力 db := de.OpenDatabase(Edit3.…