diff --git a/harbour/contrib/adordd/adordd.ch b/harbour/contrib/adordd/adordd.ch
index c38bab51d3..509b9b6776 100644
--- a/harbour/contrib/adordd/adordd.ch
+++ b/harbour/contrib/adordd/adordd.ch
@@ -115,6 +115,8 @@
 #define adUseClient           3
 #define adUseClientBatch      3
 
+#define adKeyForeign	        2
+
 #command USE <(db)> [VIA <rdd>] [ALIAS <a>] [<nw: NEW>] ;
             [<ex: EXCLUSIVE>] [<sh: SHARED>] [<ro: READONLY>] ;
             [CODEPAGE <cp>] [INDEX <(index1)> [, <(indexN)>]] ;