函数:
Public Function ReAddDAO()
Dim REFE As References '声明REFE为引用
Dim strFileName As String '声明strFileName为文本型变量
Dim rf As Object
Set REFE = Application.References
For Each rf In REFE '在引用中循环查找
If rf.Name = "DAO" Then '如果名字为DAO就移动DAO的引用
Application.References.Remove rf '移除
Exit For '退出循环
End If
Next
strFileName = "C:\Program Files (x86)\Common Files\microsoft shared\DAO\dao360.dll"
Set rf = Application.References.AddFromFile(strFileName) '重新引用DAO
End Function
然后在SysFrmLogin的Form_Load事件中调用。