ActiveX部件不能创建对象!求助!!!
Public Sub ListAllClients(ByRef lvw As ListView)
Dim objClients As New CClients
Dim rstClients As CClients
'Find的两个参数均取默认值,此时查找全部的客户
Set rstClients = objClients.Find
'将查找到的客户集合添加到列表控件中
ClientsToListview rstClients, lvw
Set objClients = Nothing
Set rstClients = Nothing
End Sub
运行到 Set rstClients = objClients.Find
的时候,提示ActiveX部件不能创建对象,啥情况啊?