找一个会VB的高手解决一个问题，表述如下
EXCEL调用用VB6封装的DLL，其中含有用户窗体，调用成功后，窗口form1上点击按钮，弹出窗口form2，点击确认，需要以form1的text1.text里的数值做为索引，去EXCEL指定的数据表里找到该数值所在的行，将此行定义为excelcel
代码如下：
form1中的代码:
Set ExcelBook = ExcelApp.ActiveWorkbook
Set ExcelSheet = ExcelBook.Sheets("房源数据库") ‘定义工作表
With ExcelSheet 'sheets("房源数据库")
set excelrng = .Columns(2) '定义B列
Set ExcelCel = ExcelRng.Find(Me.Text1, , , xlWhole) '定义工作表中B列数值与该窗体text1内容完全相符的行
在窗口1中运作正常但是在窗口2中
Set ExcelBook = ExcelApp.ActiveWorkbook
Set ExcelSheet = ExcelBook.Sheets("房源数据库") ‘定义工作表
With ExcelSheet 'sheets("房源数据库")
set excelrng = .Columns(2) '定义B列
Set ExcelCel = ExcelRng.Find(form1.Text1, , , xlWhole) '定义工作表中B列数值与窗体fomr1.text1内容完全相符的行
这时候提示：运行时错误“429”
activeX部件不能创建对象
请问怎么解决？

来看封装技术的

对象也不定义声明 如果你没有引用 没引用就必须创建 在你的代码完全看不到对象哪来的
两个FORM都要用到 你必须在.bas模块里声明引用(Public)