From 9e5dc9cc23dc9b36ff55c8396bf4bcfeac985a61 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 9 May 2007 08:55:02 +0000
Subject: [PATCH] Added function HB_AdoRddGetRecordSet( [<nWorkArea>] ) -->
 oAdoRecordset

---
 harbour/contrib/adordd/adordd.prg | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/harbour/contrib/adordd/adordd.prg b/harbour/contrib/adordd/adordd.prg
index 3e55c2eefc..1d5e73cb87 100644
--- a/harbour/contrib/adordd/adordd.prg
+++ b/harbour/contrib/adordd/adordd.prg
@@ -847,4 +847,10 @@ function HB_AdoRddGetCatalog( nWA )
 
    DEFAULT nWA TO Select()
    
-return s_aCatalogs[ nWA ]   
\ No newline at end of file
+return s_aCatalogs[ nWA ]   
+
+function HB_AdoRddGetRecordSet( nWA )
+
+   DEFAULT nWA TO Select()
+   
+return USRRDD_AREADATA( nWA )[ 1 ]
\ No newline at end of file