Excel动态添加引用问题

Question

Sub InsertMDB()
ThisWorkbook.VBProject.References.AddFromFile ("C:\Program Files\Common Files\System\ado\msado15.dll")
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
....
End Subexcel2003中
这样写的话,运行宏的时候依然显示类型未定义(adodb),估计是因为在编译的时候已经发现没有引用了,请问怎么解决,我想把这个宏搞成一个模块,方便对其他的excel进行操作,不过又不想每次都要手动添加ado引用

Answer 1

建议做成一个插件的形式，EXCEL启动就会自动引用。

Answer 2

Sub InsertMDB() Dim Rs 
Set Rs = createobject("ADODB.Recordset") 
.... 
End Sub
这样不行吗？