查询为多条件可选查询

VB 程序，搞了二天都不好。如下图样式，查询为多条件可选查询，字段

涉及到ACCESS数库中的数字型，文本型，日期型。谢谢啦~，

--------------------编程问答--------------------

dim strSql    as string

dim strWhere1 as string

dim strWhere2 as string



'字符型字段条件

if trim(text1.text)="" then

    strWhere1=""

else

    strWhere1= " AND 字符型字段='"& trim(text1.text) &"'"

end if

'数值型字段条件

if text2.text="" then

    strWhere2=""

else

    strWhere2=" AND 数值型字段="& text2.text &""

end if



'组合SQL查询语句 

strSql=" SELECT * FROM 表名 WHERE 1=1 " & strWhere1 & strWhere2

--------------------编程问答-------------------- 那问下日期型呢，因为无法上传图片，所以可能会说得不太明白，我的是共有6个COMBO,6个TEXT,每个COMBO1=TEXT1这样的，而COMBO中的是数据库中的LISTINDEX所有字段，而TEXT框中是结果，在每个COMBO中没有固定字段名 --------------------编程问答-------------------- 而COMBO中任意选择字段时有可能会是数值，文本，日期，所以需要做个判断，请写个完整的代码学习下，谢谢~

补充：VB ,  数据库(包含打印，安装，报表)