レコード一覧を取得する procedure TForm1.Button10Click(Sender: TObject); var cn :Variant;//Connection rs :Variant;//Recordset const adOpenDynamic: Integer = 2; adOpenForwardOnly: Integer = 0; adOpenKeyset: Integer = 1; adOpenStatic: Integer…