ADO _recordset

[bernhard_LA]

ich würde gerne die Funktion von http://patlatus.wordpress.com/2014/0...port-to-excel/
von einer Funktion ADOTABLE nach Excel in eine
Version ADOQuery nach Excel umbauen

Delphi-Quellcode:

// http://patlatus.wordpress.com/2014/06/16/delphi-export-to-excel/
procedure ExportRecordsetToMSExcel(DestName: string; Data: _Recordset);
var
  ovExcelApp: OleVariant;
  ovExcelWorkbook: OleVariant;
  ovWS: OleVariant;
  ovRange: OleVariant;
begin

......


end;

Wie bekomme ich aus einer Query die Daten als _Recordset ??
Unit "unit ADOMD_TLB;" ist vorhanden