set XXX=Nothing 中的XXX必须是具体set了的变量

测试过效的做法：

sub setClose(setObj)

setObj.close:set setObj = Nothing

end sub

Call setClose(rs) '并不能set rs为 Nothing