'关键字的搜索
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