多个关键字的查询问题

想用多个关键字对数据库进行查询如何解决？
比如在搜索引擎中输入多个关键字进行查询（例如查找“工业 计算机”），如何写语句？ 

将文本框中的字符串拆分成数组
代码如下
dim strsql as string
if strkeyword="" then
  strsql="select * from users"
else
  strsql="select * from users"
  dim arrykeyword() as string
  dim i as integer
  arrkeyword=splite(strkeyword," ")  '按空格拆分成数组
  strsql &= " where name like '%" & arrykeyword(0) & "%'   '添加第一个关键词
  for i=1 to arrykeyword.length-1
    strsql &= " and name like '%" & arrykeyword(i) & "%'"  'and前留一个空格
  next
end if