我希望设备型号和设备序号均精确查询,其余项目都模糊查询,但不

我希望设备型号和设备序号均精确查询,其余项目都模糊查询,但不知精确查询如何写代码,请帮助!谢谢

Private Sub 筛选_Click()
Dim strWhere As String  '定义条件字符串
   
    strWhere = "" '设定初始值－空字符串
   
    '判断【产品名称】条件是否有输入的值
    If Not IsNull(Me.档案编号) Then
        '有输入
        strWhere = strWhere & "([档案编号] like '*" & Me.档案编号 & "*') AND "
    End If
   
    '判断【领用人】条件是否有输入的值
    If Not IsNull(Me.[设备型号]) Then
        '有输入
        strWhere = strWhere & "([设备型号] like Me.设备型号) AND "
    End If
    If Not IsNull(Me.[设备序号]) Then
        '有输入
        strWhere = strWhere & "([设备序号] like Me.设备序号) AND "
    End If
       If Not IsNull(Me.[用户名称]) Then
        '有输入
        strWhere = strWhere & "([用户名称] like '*" & Me.用户名称 & "*') AND "
    End If
    If Not IsNull(Me.[经销商名称]) Then
        '有输入
        strWhere = strWhere & "([经销商名称] like '*" & Me.经销商名称 & "*') AND "
    End If
    If Not IsNull(Me.[装机人员]) Then
        '有输入
        strWhere = strWhere & "([装机人员] like '*" & Me.装机人员 & "*') AND "
    End If
    If Not IsNull(Me.[姓名]) Then
        '有输入
        strWhere = strWhere & "([姓名] like '*" & Me.姓名 & "*') AND "
    End If
    If Not IsNull(Me.[电话]) Then
        '有输入
        strWhere = strWhere & "([电话] like '*" & Me.电话 & "*') AND "
    End If
        If Not IsNull(Me.[电子邮箱]) Then
        '有输入
        strWhere = strWhere & "([电子邮箱] like '*" & Me.电子邮箱 & "*') AND "
    End If
    '判断【出库日期】条件是否有输入的值，由于有【出库日期开始】【出库日期截止】两个文本框
    '所以要分开来考虑
    If Not IsNull(Me.[起始日期]) Then
        '【出库日期开始】有输入
        strWhere = strWhere & "([验收日期] >= #" & Format(Me.起始日期, "yyyy-mm-dd") & "#) AND "
    End If
    If Not IsNull(Me.截止日期) Then
        '【出库日期截止】有输入
        strWhere = strWhere & "([验收日期] <= #" & Format(Me.截止日期, "yyyy-mm-dd") & "#) AND "
    End If
    If Len(strWhere) > 0 Then
        '有输入条件
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
    'Me!综合查询子窗体.SourceObject = "综合查询"
    'Me!综合查询子窗体.Form.RecordSource = "select * from [综合查询] where 签订日期 between #" & Me.起始日期.Value & "# and #" & Me.截止日期.Value & "#"
   
    '让子窗体应用窗体查询
    Me![用户信息查询 子窗体].Form.Filter = strWhere
    Me![用户信息查询 子窗体].Form.FilterOn = True

    Me![用户信息查询 子窗体].Form.OrderBy = "[档案编号]"
    Me![用户信息查询 子窗体].Form.OrderByOn = True

End Sub