From b2356375ae0a2b6006bc4f59dc8613bccd8b5436 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Mon, 30 Apr 2007 20:15:49 +0000
Subject: [PATCH] Improved ZAP

---
 harbour/contrib/adordd/adordd.prg | 1 +
 1 file changed, 1 insertion(+)

diff --git a/harbour/contrib/adordd/adordd.prg b/harbour/contrib/adordd/adordd.prg
index c306fa6435..e6ba1dd9fd 100644
--- a/harbour/contrib/adordd/adordd.prg
+++ b/harbour/contrib/adordd/adordd.prg
@@ -503,6 +503,7 @@ STATIC FUNCTION ADO_ZAP( nWA )
      
   if s_aConnections[ nWA ] != NIL .and. s_aTableNames[ nWA ] != nil
      s_aConnections[ nWA ]:Execute( "DELETE * FROM " + s_aTableNames[ nWA ] )
+     oADO:Requery()
   endif      
 
 RETURN SUCCESS