asp+ACCESS有日文搜索内存溢出的问题！

网上都是以下的说法，但是具体如何操作确没提！
我的问的是：我用的是科汛最新版本，如何操作才能实现ACEECC有日文但搜索能正常！  谢谢！

编码:

Function Jencode(byVal iStr)
if isnull(iStr) or isEmpty(iStr) then
Jencode=
Exit function
end if
dim F,i,E
' F=array(ゴガギグゲザジズヅデ,_
' ドポベプビパヴボペブピバ,_
' ヂダゾゼ)
E=array(Jn0;Jn1;Jn2;Jn3;Jn4;Jn5;Jn6;Jn7;Jn8;Jn9;Jn10;Jn11;Jn12;Jn13;Jn14;Jn15;Jn16;Jn17;