procedure LoadFromStream(pvDataSet: TCustomADODataSet; pvStream: TStream);
var
AR:_Recordset;
begin
AR:=_Recordset(CoRecordset.Create);
pvStream.Position:=0;
AR.Open(TStreamAdapter.Create(pvStream) as IUnknown, EmptyParam,adOpenUnspecified, adLockUnspecified, -1);
pvDataSet.Recordset:=ADOInt._Recordset(AR);
end;