请教一个查询语句去重复的代码

mmx1122

                sq = "SELECT distinct (销售门店) FROM [销售统计结果表$] order by 销售门店"
                rs.Open sq, cn, adOpenKeyset, adLockOptimistic

                ReDim md(rs.RecordCount - 1) As Variant
                For i = 0 To rs.RecordCount - 1
                    md(i) = rs.Fields("销售门店")   '把去掉重复的门店，保存到数组【这里的顺序不是select .....order by 的顺序】
                    rs.MoveNext
                Next i

请问有人遇到过么？怎么解决的！谢谢了。
代码没有问题，已经在正常运行了。

zopey

select 销售门店 from [销售统计结果表$]  group by 销售门店  order by 销售门店