求教一个简单的问题

nickzhou1980

附件中  

混料 表  中的  

Private Sub TextBox1_Change()  '//文本框发生变化，就查找，显示在：ListBox1
Dim sh1, str_coon, StrSQL, SQLARR

    Set sh1 = Sheet3
    str_coon = "HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2003，2007 通用
    StrSQL = "SELECT 产品名,类别 FROM [" & sh1.Name & "$]"
    StrSQL = StrSQL & " WHERE 产品名 LIKE '%" & TextBox1.Text & "%'"
    SQLARR = GET_SQL_To_Arr(StrSQL, str_coon, True)
    ListBox1.Clear
    ListBox1.List = SQLARR

End Sub

运行提示 子过程或者函数未定义

请大神帮忙看看 问题出哪了  

这个代码是我在其他表格复制的  其他表格可以运行  

nickzhou1980

自己顶  。。。。。。。帮忙看看呢。。兄弟们

nickzhou1980

顶。。。。。。。。。。。。。。。。。。。。。。

nickzhou1980

好心人  帮忙看看  就差这一个了。。。

nickzhou1980

不用了  谢谢 已经解决