vb 传递给SQL参数空值处理,该怎么解决

vb 传递给SQL参数空值处理
有个“学历”的COMBO控件，当COMBO取值时，传递值给SQL的where 子句，但当COMBO取空值时，默认取出所有学历的人，这个SQL语句应该怎样实现

[解决办法]
select * from tabel where '1'='1' & case when cmb='' then "and 学历=''" else "and 学历="cmb.text end

大致是这样的。
[解决办法]

VB code

dim StrSql   as stringdim strWhere as string'判断combo控件内容if trim(combo.text)="" then    strWhere=""else    strWhere=" AND 学历='"& trim(combo.text) &"'"end if'构造SQL查询语句StrSql=" SELECT * FROM 表名 WHERE 1=1 " & strWhere