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