Как изменить значение элемента управления datagridview ComboBox, который на другом элементе управления datagridview выбранное выпадающем списке значение.

---

У меня есть dgv в моем vb.net приложение, которое имеет 2 столбца поля со списком datagridview в качестве программы и курса. Я хочу сделать, когда пользователь выбирает любую программу, то поле со списком курс будет заполнено теми курсами, которые входят в поле со списком программа выбранная запись.

Что я уже пробовал:

я просто могу заполнить поле со списком 2 datagridview данными, но не могу написать код для моего quiery.

con.Open()
            'stores your query in the varialble(sql)
            sql = "select Prog_Code from Program"
            'set your MySQL COMMANDS for holding the data to be executed
            With cmd
                .Connection = con
                .CommandText = sql
            End With
            'filling  data in the table
            prgda = New OleDbDataAdapter(sql, con)
            prgdt = New DataTable
            prgda.Fill(prgdt)

            'LOAD PROGRAM NAMES IN DGV COMBOBOX
            'declaring variable that set as combobox in the datagridview
            Dim prgcombo As New DataGridViewComboBoxColumn
            'declaring variable that represent the data in a datatable 
            Dim row As DataRow

            'adding the data in a combobox
            prgcombo.FlatStyle = FlatStyle.Popup
            With prgcombo
                'for each row in the datatable
                For Each row In prgdt.Rows
                    'adding a list of records in the combobox
                    .Items.Add(row.Item("Prog_Code").ToString)
                    'name of combobox
                    .Name = "Select Program"
                Next
            End With
            'add the combobox in the column of the datagridview
            DGV1.Columns.Add(prgcombo)
            DGV1.Columns(1).Width = 150
            DGV1.Columns(3).Width = 150

            'LOAD COURSE NAMES IN DGV COMBOBOX
            sql = "select CCode from Course"
            'set your MySQL COMMANDS for holding the data to be executed
            With cmd
                .Connection = con
                .CommandText = sql
            End With
            'filling  data in the table
            crsda = New OleDbDataAdapter(sql, con)
            crsdt = New DataTable
            crsda.Fill(crsdt)
            Dim crscombo As New DataGridViewComboBoxColumn
            'declaring variable that represent the data in a datatable 
            Dim row1 As DataRow

            'adding the data in a combobox
            crscombo.FlatStyle = FlatStyle.Popup
            With crscombo
                'for each row in the datatable
                For Each row1 In crsdt.Rows
                    'adding a list of records in the combobox
                    .Items.Add(row1.Item("CCode").ToString)
                    'name of combobox
                    .Name = "Select Course"
                Next
            End With
            'add the combobox in the column of the datagridview
            DGV1.Columns.Add(crscombo)
            DGV1.Columns(1).Width = 150
            DGV1.Columns(4).Width = 150
con.close()

---