sql = "select inc,inc0 from hl where inc='" & Combo1.Text & "'"
sql = "select distinct inc0 from ( " & sql & " )"