diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index bbbcd32469..74b2f20f73 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-11 13:30 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
+   * contrib/rdd_ads/adsfunc.c
+     * adsExecuteSqlDirect() and adsExecuteSql() are fixed for the occasions,
+       when query doesn't returns cursor.
+
 2001-07-10 12:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>
 
   * doc/en/gtslang.txt
diff --git a/harbour/contrib/rdd_ads/adsfunc.c b/harbour/contrib/rdd_ads/adsfunc.c
index 3a6c567e8b..e106ea901e 100644
--- a/harbour/contrib/rdd_ads/adsfunc.c
+++ b/harbour/contrib/rdd_ads/adsfunc.c
@@ -815,6 +815,8 @@ HB_FUNC( ADSEXECUTESQLDIRECT )
             pArea->hTable = hCursor;
             SELF_OPEN( ( AREAP ) pArea, &pInfo );
          }
+         else
+            adsCloseCursor( pArea );
          hb_retl( 1 );
       }
       else
@@ -867,6 +869,8 @@ HB_FUNC( ADSEXECUTESQL )
             pArea->hTable = hCursor;
             SELF_OPEN( ( AREAP ) pArea, &pInfo );
          }
+         else
+            adsCloseCursor( pArea );
          hb_retl( 1 );
       }
       else