مشكل تعبية 2كميو من جدولين بدلالة كميو ثالث

عندي ثلاث كومبو بوكس

عند اختيار إيتمز من الاولى تمتلء إيتمز الثانية والثالثة من جدولين مختلقين من نفس القاعدة

المشكل هو ان عند الاختيار الاتمز الاولى في اول مرة لا يتم ملء ولا كومبو واحد

وعند الضعط على نفس الاتم في الكومبو الأولى يمتلئ ايتمز الكوبو الثانية لكن الثالثة لا يمتلء ابدا

فماهو الحل لضهارهما من المرة الاولى

هذا هو الكود

Public Class FormCahierJournalAjouterModiffier
	Public constr As String = " provider = microsoft.ace.oledb.12.0;" & "data source = " & Application.StartupPath & "\db1.accdb"
	Dim conn As New OleDbConnection(constr)
	Dim sqlstr As String = "select * FROM TabMatiere1_1"
	Dim sqlstr2 As String = "select * FROM TabEtapes"
	Dim dataset1 As New DataSet
	Private Sub ComboMatiere1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboMatiere1.SelectedIndexChanged
    	If ComboMatiere1.SelectedIndex = 0 Then 'قرآن كريم

        	ComboLeçon1.DataSource = dataset1.Tables("TabMatiere1_1")
        	ComboLeçon1.DisplayMember = "Qoran"
        	ComboLeçon1.ValueMember = "Num"
        	dataset1.Clear()
        	conn.Open()
        	Dim da1 As New OleDbDataAdapter(sqlstr, conn)
        	da1.Fill(dataset1, "TabMatiere1_1")
        	conn.Close()

        	ComboEtapes1.DataSource = dataset1.Tables("TabEtapes")
        	ComboEtapes1.DisplayMember = "QoranEtapes"
        	ComboEtapes1.ValueMember = "Num"
        	dataset1.Clear()
        	conn.Open()
        	Dim da2 As New OleDbDataAdapter(sqlstr2, conn)
        	da2.Fill(dataset1, "TabEtapes")
        	conn.Close()
    	End If
      	end sub

end sub