複数の町域で同一郵便番号を持つデータ

町域のデータで()内のデータが悩みなのですが、”、”で区切って複数のデータを入れているのが判りにくい原因と考え、”、”で区切られたデータを複数のレコードに分けようと考えました。

町域のデータで”、”を含むデータを注出したところ、”（”を持たないデータが有りました。
これは、複数の町域で同一の郵便番号を持つデータのようです。

抽出に使用したSQL文です。
SELECT M_住所.*
FROM M_住所
WHERE ((((M_住所.町域) Like "*、*" Or (M_住所.町域) Like "*及び*") And (M_住所.町域) Not Like "*（*"));

ちょっと余計なレコードもありますが、分離後のデータです。

こんな、処理をしています。

'複数の町域で同一郵便番号を持つデータの分離()         strSQL = "SELECT M_住所.* "         strSQL = strSQL & "FROM M_住所 "         strSQL = strSQL & "WHERE (M_住所.町域) Like '*、*' And (M_住所.町域) Not Like '*（*';"         rs = db.OpenRecordset(strSQL, DAO.RecordsetTypeEnum.dbOpenDynaset)         While rs.EOF = False             '町域データの'、'での分離。R_町域は'､'             Dim tyo() As String = Split(rs.Fields!町域.Value, "、")             Dim R_tyo() As String = Split(rs.Fields!R_町域.Value, "､")             Dim i As Integer = 0             For i = 0 To tyo.Length - 1                 If i = 0 Then '町域の分割更新                     strSQL = "UPDATE M_住所 SET M_住所.町域 ='" & tyo(i) & "', M_住所.R_町域 = '" & R_tyo(i) & "' "                     strSQL = strSQL & "WHERE (((M_住所.ID)=" & rs.Fields!ID.Value & "));"                 Else '町域の分割追加                     strSQL = "INSERT INTO  M_住所 (郵便番号,都道府県,R_県,市区町村,R_市,町域,R_町域) VALUES('" & rs.Fields!郵便番号.Value & "','" & rs.Fields!都道府県.Value & "','" & rs.Fields!R_県.Value & "','" & rs.Fields!市区町村.Value & "','" & rs.Fields!R_市.Value & "','" & tyo(i) & "','" & R_tyo(i) & "');"                 End If                 db.Execute(strSQL)             Next             rs.MoveNext()         End While         rs.Close() : rs = Nothing

今度は、”～”が気になり始めました。