delphi OleVariant转换RecordSet
uses Data.Win.ADODB;
vds : OleVariant; aRecordSet : _Recordset; ADODataSet1.Recordset := IDispatch( vds ) as _Recordset;
ids: IDispatch;
ADODataSet1.Recordset := ids as _Recordset;
原文：http://www.cnblogs.com/cb168/p/4945794.html