VB.NET ต้องการเชื่อม combobox 2 ตัว เมื่อเลือกข้อมูลหลักที่ตัวแรกแล้ว ให้โชว์ข้อมูลย่อยไปตัวที่ 2 ลองเขียนแล้ว มันรันไม่ได้ค่ะ

Imports System
    Imports System.Data
    Imports System.Data.Sql
    Imports System.Data.SqlClient
    Imports System.Configuration
    
        Dim appConn As String = ConfigurationManager.ConnectionStrings("connDB").ToString
    
        Dim Conn As SqlConnection = New SqlConnection(Me.appConn)
        Dim cmd As New SqlCommand
        Dim da As New SqlDataAdapter
        Dim ds As New DataSet()
    
        Public Sub showSection()
            da = New SqlDataAdapter("SELECT DISTINCT Section From Employee Order By Section", Conn)
            da.Fill(ds)
            Conn.Close()
    
            cbSection.DataSource = ds.Tables(0)
            cbSection.DisplayMember = "Section"
            cbSection.ValueMember = "Section"
            cbSection.SelectedIndex = -1
        End Sub
    
        Private Sub cbSection_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

cbSection.SelectedIndexChanged
            If cbSection.SelectedIndex > -1 Then
                da = New SqlDataAdapter("SELECT DISTINCT Team From Employee WHERE Section='" + cbSection.SelectedValue.ToString

() + "'", Conn)
                da.Fill(ds)
                Conn.Close()
    
                cbTeam.DataSource = ds.Tables(0)
                cbTeam.DisplayMember = "Team"
                cbTeam.ValueMember = "Team"
            End If
        End Sub