请大家来帮下忙！谢谢了！

错误提示：
实时错误 '-2147217904' 至少一个参数没有被指定值

代码如下

 If Trim(DataCombo1.Text) = "" Then
     bu1 = ""
  Else
     bu1 = " and 部门=" & Trim(DataCombo1.Text)
  End If
  If Trim(DataCombo2.Text) = "" Then
     zw1 = ""
  Else
     zw1 = " and 职务=" & Trim(DataCombo2.Text)
  End If
  If Trim(Combo1.Text) = "" Then
     six1 = ""
  Else
     six1 = " and 性别=" & Trim(Combo1.Text)
  End If
  

   
  SQLstmt = "SELECT * FROM 人员档案表 where 工作状态B=1  " + bu1 + "  " + zw1 + "  " + six1 + "   ORDER BY RSB_ID"
  Set rs = QueryExt(SQLstmt)

大家帮帮忙看下 谢谢了！！！ --------------------编程问答-------------------- 好了！ 自己搞好了，犯了个小小的疏忽哦！！ --------------------编程问答-------------------- sql字符串没加'吧。。

补充：VB ,  基础类