База данных в VB

[VampiYaZZ]

Суть проблемы в том, что при загрузки программы он должен загружать из базы данных сайт (таблицу), а в ней разделы (поля)
Так, с этим вроде разобрался
Но задача в том, чтобы это всё выводилось в алфавитном порядке. С сайтами проблем не возникло, проблемы возникли в разделах, при выборе сайта(идущий по алфавитному порядку) выбирается раздел, который шёл по индексу
Проще говоря их надо связать и поставить по алфавитному порядку
Подскажите куски кода, с помощью которого я мог бы это сделать
В программировании не силён, извиняйте

[timcryt]

Какой Visual Basic: .NET или 5/6?

[VampiYaZZ]

VB 6

[VampiYaZZ]

Sub SitesRefresh()
СайтыToolStripMenuItem.DropDownItem s.Clear()
Dim Connector As New OleDb.OleDbConnection("Provider=Mic rosoft.Ace.OLEDB.12.0;Data Source=db.accdb")
Dim Command As New OleDbCommand("SELECT * FROM Sites", Connector)
Connector.Open()
Dim DataReader As OleDbDataReader = Command.ExecuteReader
While DataReader.Read() = True
СайтыToolStripMenuItem.DropDownItem s.Add(DataReader.GetValue(1))
End While
DataReader.Close()
Connector.Close()
End Sub

Public Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Sites()
If
Partitions(ToolStripComboBox1.Selec tedIndex + 1)

End If

Dim Connector2 As New OleDb.OleDbConnection("Provider=Mic rosoft.Ace.OLEDB.12.0;Data Source=db.accdb")
Dim Command2 As New OleDbCommand("SELECT * FROM Sites", Connector2)
Connector2.Open()
Dim DataReader2 As OleDbDataReader = Command2.ExecuteReader

While DataReader2.Read() = True
СайтыToolStripMenuItem.DropDownItem s.Add(DataReader2.GetValue(1))
End While

Sub Sites()
Dim Connector1 As New OleDb.OleDbConnection("Provider=Mic rosoft.Ace.OLEDB.12.0;Data Source=db1.accdb;Jet OLEDB:Database Password=password")
Dim Command1 As New OleDbCommand("SELECT * FROM [Sites]", Connector1)
Connector1.Open()
Dim DataReader1 As OleDbDataReader = Command1.ExecuteReader

While DataReader1.Read() = True
ToolStripComboBox1.Items.Add(DataRe ader1.GetValue(1))
End While



DataReader1.Close()
Connector1.Close()
End Sub

Sub Partitions(ByVal SiteID As Integer)
ToolStripComboBox2.Text = vbNullString
ToolStripComboBox2.Items.Clear()
Dim Connector3 As New OleDb.OleDbConnection("Provider=Mic rosoft.Ace.OLEDB.12.0;Data Source=db1.accdb;Jet OLEDB:Database Password=password")
Dim Command3 As New OleDbCommand("Select * from `Partitions` where `Site_ID` = " & SiteID & " Order By Partition", Connector3)
Connector3.Open()
Dim DataReader3 As OleDbDataReader = Command3.ExecuteReader
While DataReader3.Read() = True
ToolStripComboBox2.Items.Add(DataRe ader3.GetValue(1))

End While
DataReader3.Close()
Connector3.Close()
End Sub

Вот в общей сложности код, осталось как-то изменить

Partitions(ToolStripComboBox1.Selec tedIndex + 1)