สร้าง Combobox 2 ตัวให้สัมพันธ์ กัน อ่านมาหลายกระทู้แล้ว แต่ไม่มีอันไหนที่เข้าใจเลย

 Sub Cat()
        Try
            Me.ConnectDB()  'ส่วนนี้คือการเรียกค่า Connectฐานข้อมูลด้านบนมาใช้ โดยประกาศการ Connect แค่ครั้งเดียว
            Dim sb As New StringBuilder

            sb.Append("SELECT * FROM Cat_AS ORDER BY Code_CatAS ASC")

            Dim sqlCheck As String
            sqlCheck = sb.ToString()


            With com
                .CommandText = sqlCheck
                .CommandType = CommandType.Text
                .Connection = Conn
                dr = .ExecuteReader()
                If dr.HasRows Then
                    dtCheck = New DataTable()
                    dtCheck.Load(dr)
                    Me.CBType.Items.Clear()
                    With Me.CBType
                        .BeginUpdate()
                        .DisplayMember = "Name"
                        .ValueMember = "Code_CatAS"

                        .DataSource = dtCheck
                        .EndUpdate()

                    End With
                Else
                    Me.CBType.DataSource = Nothing
                End If
            End With
            
            dr.Close()

        Catch ex As Exception

            Exit Try
            Exit Sub
        End Try
    End Sub