From d0d1abe28557f207f154fe1025d336cfa762b2db Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 9 May 2007 09:03:42 +0000
Subject: [PATCH] minor change

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

diff --git a/harbour/contrib/adordd/adordd.prg b/harbour/contrib/adordd/adordd.prg
index 1d5e73cb87..56bbf53c10 100644
--- a/harbour/contrib/adordd/adordd.prg
+++ b/harbour/contrib/adordd/adordd.prg
@@ -851,6 +851,10 @@ return s_aCatalogs[ nWA ]
 
 function HB_AdoRddGetRecordSet( nWA )
 
+   local oAreaData
+
    DEFAULT nWA TO Select()
    
-return USRRDD_AREADATA( nWA )[ 1 ]
\ No newline at end of file
+   oAreaData = USRRDD_AREADATA( nWA )
+   
+return If( oAreaData != nil, oAreaData[ 1 ], nil )
\ No newline at end of file