mdMark.Close;
    mdMark.FieldDefs:=ADOQuery.FieldDefList.DataSet.FieldDefs;
    mdMark.LoadFromDataSet(ADOQuery,0,lmAppend);

procedure RecordsetToRxMemoryData(src: _Recordset; dst: TRxMemoryData);
var
q : TADOQuery;
begin
 q := TADOQuery.Create(nil);
 try
   q.Recordset := src;
   dst.Close;
   dst.FieldDefs:=q.FieldDefList.DataSet.FieldDefs;
   dst.LoadFromDataSet(q,0,lmAppend);
 finally
   FreeAndnil(q);
 end;
end;

    asMark:=TADODataSet.Create(Nil);
    asMark.Recordset:=_Recordset(IDispatch(ovRecordSet));
    asMark.First;
    mdMark.Close;
    mdMark.FieldDefs:=asMark.FieldDefs;
    mdMark.LoadFromDataSet(asMark,0,lmAppend);
    asMark.Close;
    asMark.Free;
    asMark:=Nil;