自动引用控件的问题

hhcatv068

在网上搜到了一个关于自动引用控件的模块，可我不会用，在我的程序用了，不成功。请高手帮忙修改：例如：我的程序需要引用的控件是MSCOMCT2.OCX，它和.mdb文件都存放在c:\财务管理\ 同一目录下。请问怎样修改下面网友的代码？特别是红色部分怎样修改

Public Sub DeclareDLL()

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) = "ADOX"

ExistDll(3, 1) = "msadox.dll"

'这里我的数据库中需要引用4个，你可以按你的实际情况添加

For i = 0 To 3

ExistDll(i, 2) = "Not Found"

Next i

Dim R As Reference

For Each R In References

For i = 0 To 3

If R.Name = ExistDll(i, 0) Then ExistDll(i, 2) = "Found"

Next i

Debug.Print R.Name & "
@
" & R.FullPath & " -> " & R.BuiltIn

'上一句可以检测您数据库中所使用到的所有动态链接库

Next

For i = 0 To 3

If ExistDll(i, 2) = "Not Found" Then

References.AddFromFile PathName & ExistDll(i, 1)

End If

Next i

End Sub

再在启动窗体中加入以下代码：

Private Sub Form_Current()

Call DeclareDLL
'声明所有非默认的动态链接库

End Sub

hhcatv068

也没高手回答呀

120HZQ

高手回答呀

andymark

单个控件的直接引用注册就行
Dim PathName As String
PathName = Application.CurrentProject.Path & "\财务管理\MSCOMCT2.OCX"
References.AddFromFile PathName

hhcatv068

谢谢，我试试！

hhcatv068

也不知是吗原因不成功