[Abu Ehab]

مش فاهم عليك ...
لكن لما تكون عايز تعمل Populate ComboBox الأول ...
خـد هذة الطريقة حسب الأجراء اللى أنت عامله ...:

PHP كود :

#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 


---

وأحـــذف الكــــــــــود الطـــــــــويل اللى أنت عامله .

---

والكـود بتاع الكمبوبكس التاني :

PHP كود :

    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 


طبعــــــــــا sec_code
أنت ضــــــــع بدلا منه عــــــــدل اللى أنت عايزه . لأني مش عارف أنت تقصد أي حقل منهم ....

بس خلاص وانت كمل بنفس الطريقة حسب الأستعلام