这得建数据库,输入xxx，OK

dim BT(0 to 5) as string         '对应这5个单元格在数据库里字段名
'Text1(0 to  5)   对应这5个单元格输入的查询内容

dim i as long
dim s as string
for i=0 to 5
    if len(text1(i).text)>0 then
          s= s & " AND " & bt(i) & " = '" & text1(i).text & "'"    '这里假设全是字符型，使用完全查询，你可以自己修改这个条件，这里只是提供一个原理。如果每个字段的类型不同，就不能使用循环，而是把这5个字段写成顺序结构进行判断添加。
    end if
next i
if len(s)>0 then
    s=mid(s,4)             '去掉前导的 AND
else                       '如果得出来的条件是 空，说明没的输入内容
    msgbox "请输入查询的内容"
    exit sub
end if

sql="select * From 表 where " & s