選択クエリー (Recordset.Open) procedure TForm1.Button14Click(Sender: TObject); var cn :Variant;//Connection rs :Variant;//Recordset sql:string; //Recordset const adOpenDynamic: Integer = 2; adOpenForwardOnly: Integer = 0; adOpenKeyset: Int…