请求解决：取字段某段后提唯一

ACCSEE数据库(AQXZ.MDB)
id    SJDZ
1    安庆市永忠县吴家镇宏博海棠名都
2    安庆市永忠县清流镇顺河路
3    安庆市永忠县吴家镇燕子坝村
4    安庆市永忠县铜鼓镇共和村
5    安庆市永忠县广顺街道工农村
6    安庆市永忠县仁义镇仁义国税所
7    安庆市永忠县直升镇老黄泥坳村
8    安庆市永忠县昌洲街道天龙牧业公司
9    安庆市永忠县古昌镇盛家沟村
10    安庆市永忠县河包镇中学
11    安庆市永忠县双河街道荣兴街
12    安庆市永忠县路孔镇学府路
13    安庆市永忠县昌洲街道新公安局安置房
14    安庆市永忠县安富街道古桥邮政储蓄所大楼
15    安庆市永忠县昌元街道交通局家属院
16    安庆市永忠县昌洲街道文化中心
17    安庆市永忠县昌洲街道荣和花园
18    安庆市永忠县古昌镇新民村
19    安庆市永忠县昌洲街道工业园区标准厂房
20    安庆市永忠县荣隆镇荣隆派出所大楼
21    安庆市永忠县盘龙镇打铁巷街
22    安庆市永忠县昌元街道高管小区
23    安庆市永忠县昌元街道红旗桥一建司家属院
24    安庆市永忠县昌洲街道石河高庙村
25    安庆市永忠县昌元街道齐天商务宾馆
26    安庆市永忠县荣隆镇太平村
27    安庆市永忠县盘龙镇萝卜巷A区
28    安庆市永忠县安富街道陶都博物馆
29    安庆市永忠县路孔镇万灵村
30    安庆市永忠县双河街道铁路坝村

ASP页面（xz.asp）
<select name="xz">
        <option value="" selected>-建设乡镇查询-</option>
<%
set Rs=server.CreateObject("adodb.recordset")
rs.open "select * from AQXZ where SJDZ",conn,1,1
do while NOT rs.EOF
XZ=rs("SJDZ")
HQ=Instr(XZ,"镇")
If HQ = 0 Then
X=Mid(XZ,7,4)
Else
X=Mid(XZ,7,3)
End if
%>
        <option value="<%=X%>"><%=X%></option>

<%
rs.MoveNext
Loop
rs.close
set rs=Nothing
%>
</select>

问题请教：
让“X”值取唯一