上回版友 Bobby 发布了 用VBA代码重新引用DAO方法

http://www.accessoft.com/article-show.asp?id=8915

     由于DAO与ADO都是常用的Access里面技术，有网友电脑上经常会出现ADO未引用的提示，不想手动方式去引用，也想用代码自动判断方式，这里根据上次文章代码改成了自动引用ADO代码，供参考。

二、解决方案：

    Dim REFE As References    '声明REFE为引用
    Dim strFileName As String    '声明strFileName为文本型变量
    Dim rf
    Set REFE = Application.References
    For Each rf In REFE    '在引用中循环查找
        If rf.Name = "ado" Then    '如果名字为ADO就移动ADO的引用
            Application.References.Remove rf    '移除
            Exit For    '退出循环
        End If
    Next
    strFileName = "C:\Program Files\Common Files\System\ado\msado15.dll"
    Set rf = Application.References.AddFromFile(strFileName)    '重新引用ADO