#Region " Populate Cb_corporation "
Dim XDs As New DataSet
Dim TheTruck As OleDbDataAdapter = New OleDbDataAdapter("select * from Corporation", con)
Sub Corporation_tab()
XDs.Clear()
TheTruck.Fill(XDs, "Corporation")
Cb_corporation.Items.AddRange((From I _
As DataRow _
In XDs.Tables("Corporation").Rows _
Select I.Item("corporation_ar") Distinct).ToArray)
End Sub
#End Region
Private Sub Cb_corporation_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cb_corporation.SelectedIndexChanged
Dim Da As New OleDbDataAdapter("select * from sections where sec_code =" & Cb_corporation.SelectedIndex.ToString & "", con)
Da.Fill(XDs, "sections")
CB_section.Items.Clear()
CB_section.Items.AddRange((From v As DataRow In XDs.Tables("sections").Rows Select v.Item("sec_code") Distinct).ToArray)
End Sub