'检测数据环境Command对象对应的rsCommand记录集是否打开. '如果已打开,则关闭它.让下面的命令重新打开它. If DataEnvironment1.rsYourcmd.State <> adStateClosed Then DataEnvironment1.rsYourcmd.Close End If '重新打开被上一个命令关闭的记录集(rsYourcmd),并刷新它的CommandText属性 DataEnvironment1.Commands("Yourcmd").CommandText = YourSQL
'如果已打开,则关闭它.让下面的命令重新打开它.
If DataEnvironment1.rsYourcmd.State <> adStateClosed Then
DataEnvironment1.rsYourcmd.Close
End If
'重新打开被上一个命令关闭的记录集(rsYourcmd),并刷新它的CommandText属性
DataEnvironment1.Commands("Yourcmd").CommandText = YourSQL