The
distinct
keyword applies to the whole set of columns you are selecting from a table. In your case if there are companies with the same business names in different counties then they will be selected as well.
In your combobox you do not see counties or other related information therefore it seems that it is duplicated.
You can either omit all other column from the select statement and retrieve only busines name from you table:
Dim da2 As New SqlDataAdapter("select distinct [business name] from businesses", sqlconn2)
Or, add display additional details, such as county, license number, etc in your combobox
If you still want to display additional details but list the business name once you can use a window function:
select Id, county, [business name], [business license number], [business address] from
(select Id, county, [business name], [business license number], [business address],
row_number() OVER (partition by [business name] order by Id) rn
from businesses) a where rn = 1