strQuery = "select 郵便番号,都道府県,市区町村,町域 " strQuery = strQuery & " from 郵便番号マスタ" strQuery = strQuery & " where 0" Me.lst郵便番号.RowSource = strQuery