Microsoft JET Database Engine 错误 '80040e14'内存溢出的解决办法

搜索相关资料得知被微软工程师证实是Access的bug

一个简单的解决方法是：

把如下的语句：

Sql = "select * From [tnews] Where Title like '%"&word&"%' Order By id Desc"
换成：

Sql = "select * from [tnews] where InStr(1,LCase(Title),LCase('"&word&"'),0)<>0 order by data desc"