Нужен пример запроса MySQL на добавление данных в таблицу

ListView1.View = View.Details ' Делаем из него таблицу
        ListView1.Columns.Add("FIO", "ФИО") ' Добавляем два столбика ФИО и должность
        ListView1.Columns.Add("Post", "Должность")
 
        ListView1.Items.Clear() ' На всякий случай удаляем все строки
 
        Dim itm As ListViewItem ' Создаем item строки
 
        While DR.read
            itm = New ListViewItem
            itm.Name = DR.item("ID").tostring ' В свойство Name засовываем ID чтоб пользователю на глаза не попадало
            itm.Text = DR.item("FIO").tostring ' Свойство text будет в первом столбце
            itm.SubItems(0).Text = DR.item("Post").tostring ' Для следующих столбцов свойство text элемента subitems(0,1,2 и т.д.)
            ListView1.Items.Add(itm) 'Добавляем строку в сам контрол
        End While
        DR.close()

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim conn As New MySqlConnection("Server=127.0.0.1;User id=root;password=;database=review") 'подключение к бд
        Dim cmd As New MySqlCommand
        conn.Open()
        cmd.Connection = conn
        'upload users stat
        cmd.CommandText = "SELECT comment FROM u_comment WHERE user_id = '1'"
        Dim reader As MySqlDataReader
        reader = cmd.ExecuteReader()
        'Do While reader.Read()
        'TextBox3.Text = (reader.GetString(0)) & " " & (reader.GetString(1))
        ListView1.View = View.Details ' Делаем из него таблицу
        ListView1.Columns.Add("name", "Имя") ' Добавляем два столбика ФИО и должность
        ListView1.Columns.Add("comment", "Комментарий")
 
        ListView1.Items.Clear() ' На всякий случай удаляем все строки
 
        Dim itm As ListViewItem ' Создаем item строки
 
        While reader.Read
            itm = New ListViewItem
            itm.Name = reader.Item("id").ToString ' В свойство Name засовываем id чтоб пользователю на глаза не попадало
            itm.Text = reader.Item("name").ToString ' Свойство text будет в первом столбце
            itm.SubItems(0).Text = reader.Item("comment").ToString ' Для следующих столбцов свойство text элемента subitems(0,1,2 и т.д.)
            ListView1.Items.Add(itm) 'Добавляем строку в сам контрол
        End While
        reader.Close()
        'Loop
    End Sub

While reader.Read
            itm = New ListViewItem
            itm.Name = reader.Item("ID").ToString ' В свойство Name засовываем id чтоб пользователю на глаза не попадало
            itm.Text = reader.Item("Name").ToString ' Свойство text будет в первом столбце
            itm.SubItems.Add(reader.Item("Comment").ToString) 'Извеняюсь, я косякнул...
'itm.SubItems.Add(значение следующего столбца если есть) 
            ListView1.Items.Add(itm) 'Добавляем строку в сам контрол
        End While

reader = cmd.ExecuteReader()

While reader.Read
            itm = New ListViewItem
            'itm.Name = reader.Item("ID").ToString ' В свойство Name засовываем id чтоб пользователю на глаза не попадало
            itm.Text = reader.Item("Comment").ToString ' Свойство text будет в первом столбце
            'itm.SubItems.Add(reader.Item("Comment").ToString) 
            ListView1.Items.Add(itm) 'Добавляем строку в сам контрол
        End While

ListView1.Columns("Comment").Width = 120