'關鍵字的搜索 
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