Хелпы я и сам читать умею. Но для комбобокса такое не катит
Не правда. Катит 
Только что попробовал:
Dim myConnection As New SqlClient.SqlConnection("server=sql_server_name;initial catalog=pubs;uid=sa;pwd=***********;")
Dim myAdapter As New SqlClient.SqlDataAdapter("SELECT au_lname FROM authors", myConnection)
Dim myDataTable As New DataTable("Authors")
Dim myDataView As DataView
myAdapter.Fill(myDataTable)
myDataView = myDataTable.DefaultView
myDataView.Sort = "au_lname DESC"
Me.ComboBox1.DataSource = myDataView
Me.ComboBox1.DisplayMember = "au_lname"
Me.ComboBox1.ValueMember = "au_lname"
|