If you want to combine the values from two columns into a single list, use a
UNION
query.
Dim cmd As New SqlCommnd("SELECT column1 As ProductType FROM YourTable WHERE ID = @ID UNION SELECT column2 As ProductType FROM YourTable WHERE ID = @ID")
cmd.Parameters.AddWithValue("@ID", TextID.Text)
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable
da.Fill(dt)
ComboProductType.DisplayMember = "ProductType"
ComboProductType.DataSource = dt