خطأ في كود تعبئة 2كومبو بوكس من اختيار من كومبو ثالث

هذا الكود لتعبءة اثنان كومبو بوكس كل كومبو يعبأ من جدول خاص به و يعبئان انطلاقا من اختيار في كومبو بوكس ثالث بحيث عند اختيار مثلا القرأن الكريم من الكومبو الاول يتم جلب دروس القرأن الكريم من الجدول الخاص به ويملأ الكومبو 2 وايضا يتم جلب سجلات من جدول ثان لتعبء به الكومبو الثالث

If ComboMatiere1.SelectedIndex = 0 Then 'قرآن كريم
            	Dim dataset1 As New DataSet
            	dataset1.Clear()
            	Dim sqlstr1 As String = "select * FROM TabTawzieSanawi4"
            	conn.Open()
            	Dim DataAdapter1 As New OleDbDataAdapter(sqlstr1, conn)
            	DataAdapter1.Fill(dataset1, "TabTawzieSanawi4")
            	conn.Close()
            	DataAdapter1.Dispose()


            	ComboLeçon1.DataSource = dataset1.Tables("TabTawzieSanawi4")
            	ComboLeçon1.DisplayMember = "Qoran"
            	ComboLeçon1.ValueMember = "Num"
            	ComboLeçon1.Text = vbNullString

            	Dim dataset2 As New DataSet
            	dataset2.Clear()
            	Dim sqlstr2 As String = "select * FROM TabEtapesQoran2"
            	conn2.Open()
            	Dim DataAdapter2 As New OleDbDataAdapter(sqlstr2, conn2)
            	DataAdapter2.Fill(dataset2, "TabEtapesQoran2")
            	conn2.Close()
            	DataAdapter2.Dispose()

            	ComboEtapes1.DataSource = dataset2.Tables("TabEtapesQoran2")
            	ComboEtapes1.DisplayMember = "Qoran"
            	ComboEtapes1.ValueMember = "Num"
            	ComboEtapes1.Text = vbNullString
end if