您正在 access911.net -> 静态资料库

以下方法只使用于 mdb

Public Sub DeclareDLL()
    '曾经有人跟我说用FeatureInstall ，
    '和Public Declare Sub GetScanImg Lib "d:\学生成绩\同学通讯录\scanimg.dll" ()
    '但结果无效，请您帮助看看
    Dim ExistDll(10, 2) As String, i As Integer
    Dim PathName As String
    PathName = Application.CurrentProject.Path & "\"   '根据你的实际情况可以更改

    ExistDll(0, 0) = "stdole"
    ExistDll(0, 1) = "stdole2.tlb"
    ExistDll(1, 0) = "ADODB"
    ExistDll(1, 1) = "msado25.tlb"
    ExistDll(2, 0) = "DAO"
    ExistDll(2, 1) = "dao360.dll"
    ExistDll(3, 0) .....................
...........

如何自动注册dll动态链接库？