求高手支招：win10中不能调用vb封装的函数过程

qy0027

在我写的一个过程中：
Function datarst(ByRef rst_s As Variant, person As Variant, perword As Variant) As ADODB.Recordset
lijie = "driver={SQL Server}; server=10.28.1.1;uid=xl;pwd=a"
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Set conn = New ADODB.Connection
With conn
     .ConnectionString = lijie & ";database=data"
     .Open strConn
End With
Set rst = New ADODB.Recordset
With rst
   .ActiveConnection = conn
   .Open "select distinct code,co from user_fa where operator='" & person & "'
End With
dataword = rst.Fields(0).Value
datarole = rst.Fields(1).Value
'连接数据库操作
lijie = "driver={SQL Server}; server=10.28.1.1;uid=" & datarole & ";pwd=" & dataword
Set conn = New ADODB.Connection
With conn
     .ConnectionString = lijie & ";database=data"
     .CommandTimeout = 60
     .Open strConn
End With
Set datarst = New ADODB.Recordset
With datarst
   .ActiveConnection = conn
   .Open rst_s
End With
End Function
这一个过程，这过程用vb6封装成dll文件，然后在vba中加载，在win7和xp中运行没有问题，但是在win10系统中，运行不了，报错：“错误代码429 activex部件不能创建对象”，。
不知道是什么原因，该如何解决？（操作系统：win10家庭版 64位，excel2007)
恳请各位高手指点！！！！！

qy0027

没有人回，顶一下

qy0027

还是没有回啊，各位高人，支支招啊

言志

换32位Excel就行了，我的也是一样

xd3210

还没有用上win10，关注中！

qy0027

excel是32位的，操作系统是64位的

qy0027

问题还是没有解决，再顶一下。

qy0027

qy0027 发表于 2015-10-15 16:37
问题还是没有解决，再顶一下。

持续等待。。。。。。

qy0027

是无解吗？？？？

gjj136138139

我也遇到过类似的，我是vb6封装函数的dll,在xp和win7下通过com加载项及加载宏，可以调用函数。但是在win10（64位）系统，32位office2010下就不行，原因不知，加载宏点自动化时就根本看不到函数。