'首先要明确我现在只是在说关于延时的方法，没有说这个方法用了以后，您就能解决问题。 Sleep, SleepEx VB声明 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Declare Function SleepEx& Lib "kernel32" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) 说明 将一个线程的运作挂起指定的时间 返回值 Long，仅适用于SleepEx。如超出时间溢出，则为零。如由于异步I/O操作完成导致了函数的返回，则为 WAIT_IO_COMPLETION 参数表 参数 类型及说明 dwMilliseconds Long，将线程挂起的毫秒时间长度。如设为常数INFINITE，表示将一个线程永久性的催眠 bAlertable Long，仅适用于SleepEx。如用一个ReadFileEx 或 WriteFileEx函数调用初始化了一个异步I/O传输，而且我们希望函数返回，以便由那些函数指定的I/O结束例程能正常执行，就设为TRUE
其实解决很简单 其实你第一个recordset结束后 关闭它 myrs.close set myrs=nothing 在然后再调用另一个recordset读取，就不会有上面的问题了或者 dim myRs as new adodb.recordset sql1="..." sql2="..." mys.open sql,conn,1,3 myrs.addnew ... myrs.update myrs.close set myrs=conn.execute(sql20 这样，也不会出现你说的问题
Sleep, SleepEx VB声明
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function SleepEx& Lib "kernel32" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long)
说明
将一个线程的运作挂起指定的时间
返回值
Long，仅适用于SleepEx。如超出时间溢出，则为零。如由于异步I/O操作完成导致了函数的返回，则为 WAIT_IO_COMPLETION
参数表
参数 类型及说明
dwMilliseconds Long，将线程挂起的毫秒时间长度。如设为常数INFINITE，表示将一个线程永久性的催眠
bAlertable Long，仅适用于SleepEx。如用一个ReadFileEx 或 WriteFileEx函数调用初始化了一个异步I/O传输，而且我们希望函数返回，以便由那些函数指定的I/O结束例程能正常执行，就设为TRUE
其实你第一个recordset结束后
关闭它
myrs.close
set myrs=nothing
在然后再调用另一个recordset读取，就不会有上面的问题了或者
dim myRs as new adodb.recordset
sql1="..."
sql2="..."
mys.open sql,conn,1,3
myrs.addnew
...
myrs.update
myrs.close
set myrs=conn.execute(sql20
这样，也不会出现你说的问题