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