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部件不能创建对象，啥情况啊？
[解决办法]
Dim rstClients As CClient
这个定义错误。
[解决办法]
Dim rstClients As New CClients
[解决办法]
