编程以来,第一次遇到的最怪的问题!请各路高手赐教!!!!

Question

难
try this;
set aset=nothing
set bset=nothing

Answer 1

dim Aset as new ADODB Recordset  --> dim Aset as ADODB.Recordset
                                     set Aset=new ADODB.Recordset

Answer 2

把dim Aset as new ADODB Recordset
  dim Bset as new ADODB Recordset
 放到form_load 外面去 ，就不用 set .. = nothing 

Answer 3

如果该窗口是被调用的话应该是出现该问题的。因为unload 并没有将该窗口从内存中销毁，而close也没有将rs销毁，因此再次打开就会报错。销毁rs的方法就是农民用的方法，因此解决了问题。
另一种方法是可以定义tempform as yourform，然后初始化tempform 并用
tempform.show显示该窗体，这样显示的窗体是你的窗体的一个实例，unload后就应该会自己销毁，不会出现上述问题。但这样做好像没有农民的方法好，因为实例化的是一个窗体，而不是上面简单的两个recordset。

Answer 4

  dim Aset as new ADODB Recordset
  dim Aset as new ADODB Recordset
应作为全局变量来声明。