近日在ttp://topic.csdn.net/t/20050129/18/3763019.html# 
发现dim rs as ADODB.Recordset可以和下面内容组合应用后。就不用在调试程序时,采用手动在引用项中打勾了。 
Set conn = CreateObject("ADODB.Connection") 
Set rs = CreateObject("adodb.recordset") 等价以下操作
引用项 打勾 Microsoft   ActiveX   Data   Objects   2.X
 
  Dim conn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset