这下面是我程序中的,我对各个属性的用法很模糊,程序中偶尔会出现“错误40045,此时不允许操作”然后跳到下面这些行处,修改下这些属性基本上都恢复,比如rdAsyncEnable Or rdExecDirect换成rdExecDirect,错误就不出现了,可是我不知道为什么?还有跳到cn.Execute str, rdExecDirect我不知道该怎么修改,程序有时候会错错,跳到该处,大家帮忙看下
Set rst = cn.OpenResultset(sql, rdOpenDynamic, rdConcurLock)Set rst = cn.OpenResultset(sql, rdOpenStatic, rdConcurReadOnly)
Set rst = cn.OpenResultset(sql, rdOpenStatic, rdConcurReadOnly, rdExecDirect)
While addrst.StillExecuting: DoEvents: Wend
Set rst = cn.OpenResultset(sql, rdOpenStatic, rdConcurReadOnly, rdAsyncEnable Or rdExecDirect)
 While rst.StillExecuting: DoEvents: Wend
  
cn.Execute str, rdExecDirect
cn.Execute ssql, rdExecDirect Or rdAsyncEnable
While cn.StillExecuting: DoEvents: Wend