彻底解决ACCESS日文问题

function filteJapanese(sStr)
dim oRegExp
set oRegExp = new RegExp
oRegExp.global = true
oRegExp.pattern = "[\u3040-\u309F|\u30A0-\u30FF]"
filteJapanese = oRegExp.replace(sStr,"")
set oRegExp = nothing
end function