我要怎么设置才能查询到部号是06的产品编码   
'产品本月售后进入数(本月进仓)
        adoRs1.Open "select sum(数量) from SuKiProductInStorage where 产品编号='" & adoRs("产品编号") & "' " _
        & " and 日期 <= convert(datetime,'" & Format(Dat2, "yyyy-mm-dd") & "') and 日期 >= convert(datetime,'" & Format(Dat1, "yyyy-mm-dd") & "')and 入库部门<>'13'and len(入库部门)=0"或6"都不行。 要怎么才能查询到这个部号06的产品编号

日期查询用where 日期 between #" & Format$(dat2, "yyyy/mm/dd") & "# and #" & Format$(dat1, "yyyy/mm/dd") & "#另外我不知道你对入库部门需要怎么个结果
len(入库部门)=0"或6" 这个肯定不行的，
len（）出来的值是一个字节数所以你就算输入06也是错的，直接  入库部门)=06 或者用模糊查询 入库部门 like % " & 查询条件 & "% 输入0 或6 就都可以了

如图1与图2   正常来说这个部门号为06的可以显示在图1那里，而这代码就是查询显示部门06的代码：
 '产品本月售后进入数(本月进仓)
        adoRs1.Open "select sum(数量) from SuKiProductInStorage where 产品编号='" & adoRs("产品编号") & "' " _
        & " and 日期 <= convert(datetime,'" & Format(Dat2, "yyyy-mm-dd") & "') and 日期 >= convert(datetime,'" & Format(Dat1, "yyyy-mm-dd") & "')and 入库部门<>'13'and len(入库部门)=2"
        
        If adoRs1(0) <> "" Then
          OJ = adoRs1(0)
        End If
        adoRs1.Close

'产品本月总装车间进入数(本月进仓)
        adoRs1.Open "select sum(数量) from SuKiProductInStorage where 产品编号='" & adoRs("产品编号") & "' " _
        & " and 日期 <= convert(datetime,'" & Format(Dat2, "yyyy-mm-dd") & "') and 日期 >= convert(datetime,'" & Format(Dat1, "yyyy-mm-dd") & "')and (入库部门='13'or len(入库部门)=3)"
        
        If adoRs1(0) <> "" Then
          BJ1 = adoRs1(0)
        End If
        adoRs1.Close   
这是查询除部号06以为的其它

"select 产品编号 from SuKiProductInStorage where 入库部门='06'"