How to Fill DataGridView with Data Based on ComboBox

CREATE TABLE IF NOT EXISTS `names` (
  `id` int(11) NOT NULL AUTO_INCREMENT,
  `name` text NOT NULL,
  PRIMARY KEY (`id`)
) ENGINE=InnoDB  DEFAULT CHARSET=latin1 AUTO_INCREMENT=39 ;

INSERT INTO `names` (`id`, `name`) VALUES
(1, 'Janno Palacios'),
(2, 'Gerlie joy Castaños'),
(3, 'John Paul Arroz'),
(4, 'michael alejano'),
(5, 'Jeszel R. alvarez'),
(6, 'Mary Angelie I. Sitjar'),
(7, 'Raffy Buendia'),
(8, 'Jimmelyn Espraguera'),
(9, 'joean mar m genit'),
(10, 'Justine Ann Gomez'),
(11, 'Amy Rose'),
(12, 'Dolan Cuevas'),
(13, 'clefhord john S macumao'),
(14, 'Michael Ian C. Ruiz'),
(15, 'lourdmaro'),
(16, 'oscar neil s ilao'),
(17, 'lyn rose'),
(18, 'Ruselo P. Flores'),
(19, 'Dennis Michael U. Berzuela'),
(20, 'Jasper Gabat'),
(21, 'Shanlee Marie Bongaita'),
(22, 'ritchelle gatoc'),
(23, 'Sherlyn F. Dolfo'),
(24, 'july ganza'),
(25, 'lanie pescasiosa'),
(26, 'Marjorie'),
(27, 'Giv Hamsleigh B. Javellana'),
(28, 'Joshua J. Labrador'),
(29, 'VANESSA G. BAÑEZ'),
(30, 'Margie Rose Tondo'),
(31, 'Gergil Luz Argamaso'),
(32, 'Cheryl Tabasin'),
(33, 'MYLIN I. MONTILLA'),
(34, 'charkien palmos'),
(35, 'Kim Ruel N Lo-on'),
(36, 'james mesas'),
(37, 'mario maravilla'),
(38, 'janry apatan'),
(39, 'janney joy kim')

Imports MySql.Data.MySqlClient
Public Class Form1
    'set up the MySQL Connection
    Dim con As MySqlConnection = New MySqlConnection("server=localhost;user id=root;database=member")
    'a set of commands in MySQL
    Dim cmd As New MySqlCommand
    'a Bridge between a database and datatable for retrieving and saving data.
    Dim da As New MySqlDataAdapter
    'a specific table in the database
    Dim dt As New DataTable
    'declare variable as string
    Dim sql As String
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            'opening connection
            con.Open()
            'stores your query in the varialble(sql)
            sql = "select name from names"
            'set your MySQL COMMANDS for holding the data to be executed
            With cmd
                .Connection = con
                .CommandText = sql
            End With
            'filling  data in the table
            da = New MySqlDataAdapter(sql, con)
            dt = New DataTable
            da.Fill(dt)
 
            'declaring variable that set as combobox in the column on the datagridview.
            Dim combo As New DataGridViewComboBoxColumn
            'declaring variable that represents the row in the datatable 
            Dim row As DataRow
 
            'adding the data in a combobox
            With combo
                'for each row in the datatable
                For Each row In dt.Rows
                    'adding a list of records in the combobox
                    .Items.Add(row.Item("name").ToString)
                    'name of combobox
                    .Name = "Name"
                Next
            End With
            'add the combobox in the column in the datagridview
            DataGridView1.Columns.Add(combo)
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        da.Dispose()
        'Close the connection
        con.Close()
End Sub