急，“实时错误”

adocmd.CommandText = "SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED " & _
          "update t_PANewData set FPA1116=isnull(FPA1116,0)+" + CStr(FSysJobClass * FSysPosition) + " where FEmpID=1215" + CStr(adotemp1(0)) & _
          " and FClsID=3 and (FYear=" + Text1.Text + " and FPeriod>1) or (FYear=" + CStr(CInt(Text1.Text) + 1) + " and FPeriod=1)"
         adocmd.Execute , , adAsyncExecute
         While (adocmd.State = adStateExecuting)
               Debug.Print "Change    command    executing...."
         Wend

高手们赐教啊，上面的代码4个月前执行地好好的，但现在再运行一会就提示

实时错误 '-2147217871 (80070e31)';
超时已过期

点错误窗口的“调试”按钮，就跳到下面这条语句。
While (adocmd.State = adStateExecuting)

是不是SQL语句的写法不正确？
VB6.0 + SQL2000SP4
我的QQ：850924611
--------------------编程问答-------------------- timeout

补充：VB ,  数据库(包含打印，安装，报表)