検索する procedure TForm1.Button10Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database rs:Variant;//Recordset const dbOpenTable:Integer = 1; begin //表示用コントロールをクリア Edit2.Text := ''; de := CreateOleObject('DAO…