以下为引用的内容：

''关键字的搜索
str="select * from tableName where id>4"
if srhKey<>"" then
keyArr=split(srhKey," ")
j=UBound(keyArr)
t=0
dim keystrArr()
for i=0 to j
if keyArr(i)<>"" then
redim preserve keystrArr(t)
strfilter="(empZw like ''%"&keyArr(i)&"%'' or empDep like ''%"&keyArr(i)&"%'' or empGz like ''%"
strfilter=strfilter&keyArr(i)&"%'' or empWy1 like ''%"&keyArr(i)&"%'' or empWy2 like ''%"&keyArr(i)
strfilter=strfilter&"%'' or empYq like ''%"&keyArr(i)&"%'' or com_name like ''%"&keyArr(i)&"%'')"
keystrArr(t)=strfilter
t=t+1
end if
next
keystr=join(keystrArr," and ")
str=str&" and "&keystr
end if