谁可以提供关于模糊查询的源程序

供参考：

if bh="" then 　 sql="select * from sl where bh like '%"&ss&"%'" 　else bh=clng(bh) sql="select * from sl where bh=" & bh & " " end if 　if nam<>"" then 　sql=sql&" and nam like '%"&nam&"%' " 　 end if 　if jz<>"" then 　 sql=sql&" and jz like '%"&jz&"%' " end if if pc<>"" then pc=cint(pc) 　sql=sql&" and pc="&pc&" " 　end if 　if zw<>"" then 　sql=sql&" and zw like '%"&zw&"%' " end if