怎样自动引用DLL？

sunredday

On Error Resume Next
Dim REF As Reference
Dim strfilename As String
strfilename = "c:\program files\common files\system\ado\msado21.tlb" '路径由引用窗体获得
Set REF = Application.references.AddFromFile(strfilename) '必须加APPLICATION
MsgBox REF.Name & "已经被引用完毕" '获得应用名称的途径

sunredday

On Error Resume Next
Dim REFE As Reference
Set REFE = Application.references!ADODB '由 添加时的REF.NAME获得
Dim REF As String
REF = REFE.Name
  Application.references.Remove REFE '必须加APPLICATION
   MsgBox REF & "已经被取消引用" '获得应用名称的途径