请问这样能不能释放掉ado对象占用的内存，帮帮忙，斑竹！！！

dim   dbfilespec   as   string    
  dim   conndb   as   adoce.connection    
  dim   rs   as   adoce.recordset    
  dim   recordcount   as   integer    
  dim   arb1   as   integer    
   
  dbfilespec   =   form1.text1.text    
  list1.clear    
   
  create   a   connection   to   the   database    
  set   conndb   =   createobject("adoce.connection.3.1")    
  conndb.connectionstring   =   "data   source   =   "   &   dbfilespec    
  conndb.open    
   
  set   rs   =   createobject("adoce.recordset.3.1")    
  rs.open   "msystables",   conndb,   adopenkeyset,   adlockoptimistic    
  ...  
  rs.close    
  set   rs   =   nothing    
   
  set   conndb   =   nothing

• · 推荐参考文章：
• SOA让IT从业者看到更多的利润
• Monster迎接SOA带来的新挑战
• SOA重塑证券企业应用架构
• 实现SOA的两个案例
• 出航SOA—中远集运全球EDI平台建设
• 成功实施SOA COSCON扬帆远航
• SOA案例:不同应用程序的集成组织
• 安全的SOA提高MedicAlert公司可靠性
• 规划SOA（1）了解SOA
• 规划SOA（2）构建SOA路线图

· 网友精彩回答：