VB调用中间件的类时出错

Question

我做了一个三层结构的应用程序一个中间件myrsda,但是在我用客户端的程序调用中间件时出错,代码如如:
Dim objemps As cempsPrivate Sub Form_Load()
objemps.Find                 '报错：对象变量或 With 块变量没有设置
Text1 = objemps.Item(1).xmEnd Sub如果我把中间件层的工程和客户端添加为一个组，则没问题
请问各位大侠，这是什么原因

Answer 1

Dim objemps As new cemps

Answer 2

使用CreateObjectDim objemps As cempsPrivate Sub Form_Load()
    set objemps=CreateObject("提供对象的应用程序名称.cemps")   '例如：CreateObject("Excel.Sheet")
    objemps.Find                 
    Text1 = objemps.Item(1).xmEnd Sub