删除纪录的问题！

Question

'RES是纪录集变量
'删除纪录的代码为：
IF RES.RECORDCOUNT>=1 THEN
   RES.MOVEFIRST
   RES.MOVEFIRST
   WHILE NOT RES.EOF
      RES.DELETE
      RES.UPDATE
      RES.MOVENEXT
   WEND
END IF 
运行代码出错，提示为“文件共享数溢出”，但在出错的同时，已在数据库中删除了10000条左右的纪录！再次运行又删除了10000条左右的纪录。
请教大虾们，这是何故？如何删除纪录？

Answer 1

IF RES.RECORDCOUNT>=1 THEN
   RES.MOVEFIRST
   Do Loop 
      RES.DELETE
      RES.MOVENEXT
   until res.eof

Answer 2

do loopuntil 
有语法错误

Answer 3

犯了个低级错误
IF RES.RECORDCOUNT>=1 THEN
   RES.MOVEFIRST
   Do  
      RES.DELETE
      RES.MOVENEXT
   loop until res.eof