[求助]MDB与ADP的代码转换问题

eyewitnes

<>在MDB的VB代码中下面的句子要用在ADP中应该怎样修改?</P>
<>Me.模糊查询.RowSource = "select 名称 from T_Goods where 名称 like '" &amp; tmpStr &amp; "' or 名称 like '" &amp; CharToSpell(CStr(tmpStr)) &amp; "' OR CHARTOSPELL([名称]) like '*" &amp; tmpStr &amp; "*'"</P>
<>其中CharToSpell是获取汉字的拼音首个字母的自定义函数,tmpStr是窗体一个文本控件的值</P>
<P>上面句子在MDB中可以使用,在ADP中提示CharToSpell不是可以识别的函数名</P>