diff --git a/harbour/contrib/adordd/adordd.prg b/harbour/contrib/adordd/adordd.prg
index 62ed16a425..3e55c2eefc 100644
--- a/harbour/contrib/adordd/adordd.prg
+++ b/harbour/contrib/adordd/adordd.prg
@@ -835,4 +835,16 @@ static function SQLTranslate( cExpr )
   cExpr = StrTran( cExpr, ".AND.", "AND" )
   cExpr = StrTran( cExpr, ".OR.", "OR" )
 
-return cExpr   
\ No newline at end of file
+return cExpr   
+
+function HB_AdoRddGetConnection( nWA )
+
+   DEFAULT nWA TO Select()
+   
+return s_aConnections[ nWA ]   
+
+function HB_AdoRddGetCatalog( nWA )
+
+   DEFAULT nWA TO Select()
+   
+return s_aCatalogs[ nWA ]   
\ No newline at end of file