ActiveX部件不能创建对象！

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

------解决方案--------------------

探讨

Dim rstClients As New CClients

------解决方案--------------------
少这个CClients类定义
------解决方案--------------------
你把Find这个函数贴上来看看.....