我的目的是通过TEXT的变化自动筛选ACCESS中符合条件的数据并列到LIST中
当数据库中数据较少时没有问题，数据较多时出现内存溢出，真实使用数据约9K行
代码如下，求教解决办法

Private Sub Text2_Change()
Dim m As String
m = Text2.Text
List1.Clear
Text1.Text = ""

Set Conn = CreateObject("ADODB.Connection")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\技术文件信息.mdb"
Conn.Open Connstr
Set Rs = CreateObject("adodb.recordset")
SQL = "Select * From SFILE where 文件代码 like  '%" & m & "%' or 物料编码 like  '%" & m & "%' or 文件名称 like  '%" & m & "%'"
Rs.Open SQL, Conn, 1, 2

Do While Not Rs.EOF
  List1.AddItem Rs("文件代码").Value & "  " & Rs("物料编码").Value & "  " & Rs("文件名称").Value
  Rs.movenext
Loop

End Sub

我主要想知道问题是出在哪里，怎么去解决
如果是限制是你所提的那个数值，那我的实际数值还远远达不到，这又是怎么回事呢？

我现在是用了ON ERROR来规避
这样导出来的程序会有什么问题么？

用了ON ERROR后，查询没出现问题
我之前试过好多次，基本可以判定是在没有符合查询条件的情况时，内存就溢出

不好意思，这两天忙了些，没上来。
先感谢各位，先结贴再回复了

回复 风吹过b
    我又在精简版上运行，删掉了ON ERROR，查询又没问题，实在摸不懂了
    之前是运行的企业版报错，显示是这行Rs.movenext

回复 lianyicq
    m = Text2.Text，这不是重新赋值吗

只是现在又出现了一个问题。
我把生成的EXE拿到同事那测试，结果一运行就什么都没显示了，但是进程里边可以看到
怎么解决呀

我是生成执行文件后到同事那试的，还要在别的机器注册吗

[ 本帖最后由 linandceline 于 2015-4-16 14:00 编辑 ]

现在麻烦了，同事没有本地硬盘的权限。
就算要在他们机器上注册也不行了。
有没有将部件转为模块的方法？

内部用的小程序，不行我还是先用ON ERROR吧，后面再改进它