ActiveX部件不能创建对象！求助！！！

Question

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部件不能创建对象，啥情况啊？

Answer 1

Dim rstClients As CClient
这个定义错误。

Answer 2

Dim rstClients As New  CClients

Answer 3

我觉得是 RecordSet，因为是 rst 前缀。总之，CClients 是不对的。

Answer 4

我换台电脑就没问题了，不知道为什么，是不是我的电脑少了什么DLL文件啊什么的...还是VB开发组件本身就不太稳定啊？

Answer 5

你把Find这个函数贴上来看看.....