你的目录树根据的是 品牌、名称 生成的,那么你的查询条件,也要写成
Dim Filter As String = "[品牌] = '" & Vals(0) & "' And [系列名称] = '" & Vals(1) & "'"