在线等：如何应用组合框中的值？

在查询中，用组合框来筛选，组合框的行来源：

SELECT 客户表.客户名称 FROM 客户表 ORDER BY 客户表.客户名称;

子窗体的记录源是一个查询，SQL语句：

SELECT 运输清单.日期, 运输清单.客户名称, 运输清单.车号, 运输清单.驾驶员, 运输清单.装货地点, 运输清单.卸货地点, 运输清单.数量, 运输清单.单价, [数量]*[单价] AS 运费, 运输清单.代垫费用, 运输清单.过路费, 运输清单.油费, 运输清单.驾驶员工资, 运输清单.罚款, 运输清单.住宿费, 运输清单.维修费用, 运输清单.保险, 运输清单.检车, 运输清单.轮胎, 运输清单.代付运费, 运输清单.备注
FROM 运输清单;
“查询”按钮代码：

Private Sub cmd查询_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 & "([日期] >= #" & 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.费用明细子窗体.Form.Filter = strWhere
Me.费用明细子窗体.Form.FilterOn = True
End Sub

其中：按下面的三个组合框（客户名称，驾驶员，车号），均查不出结果，不知问题出在哪里？