为什么我的列表框就是不能根据组合框的内容晒窜

使用如下代码
Private Sub Comb筛选_AfterUpdate()
    If Me.Comb筛选.Column(1) = "全部" Then
        Forms!frm备品明细!frmChild.Form.RecordSource = "select * from tbl备品"
        Forms!frm备品明细!frmChild.Requery
        Me.Lis筛选.RowSource = "SELECT 物品编号, 子属性 FROM tbl备品"
        Me.Lis筛选.Requery
    Else
        Forms!frm备品明细!frmChild.Form.RecordSource = "select * from tbl备品 where 物品属性 = '" & Me.Comb筛选.Column(1) & "'"
        Forms!frm备品明细!frmChild.Requery
        Me.Lis筛选.RowSource = "SELECT 物品编号,子属性 FROM tbl备品 WHERE tbl备品.物品属性 = '" & Me.Comb筛选.Column(1) & "'"
        Me.Lis筛选.Requery
    End If
End Sub

如果只需要使用不重复的子属性应该使用如下代码，列表框列数设为1

Me.Lis筛选.RowSource = "SELECT distinct 子属性 FROM tbl备品 WHERE tbl备品.物品属性 = '" & Me.Comb筛选.Column(1) & "'"