ник: FORMAT
Дапустим твае подключение абзываицца cn1
a DataSet абзываицца ds1 ( штобы избежать абзывание объектов ключевыми словеями )
cn1.open()
dim TableAdapter as new SqlDataAdapter(Qwery, cn1)
Dim ds1 As New DataSet()
TableAdapter.Fill(ds1, "Придумываешь любое имя")
With ds2
Me.ComboBox1.DataSource = .Tables("Твое придумманое любое имя")
Me.ComboBox1.DisplayMember = "ProductName"
Me.ComboBox1.ValueMember = "ProductID"
End With
cn1.close()