База данных, добавить кнопки "Добавить" и "Удалить" - Visual Basic .NET - Ответ 3206038

Public Class Form1
    Structure abit
        Public pir As String
        Public storon1 As Byte
        Public storon2 As Byte
        Public storon3 As Byte
        Public visota As Byte
        Public plosh As Byte
    End Structure
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n, i, k, j As Integer
        Dim s(10) As abit
        Dim max, min As Double
        n = InputBox("Введите количество пирамид")
        DataGridView1.ColumnCount = 10
        DataGridView1.RowCount = n
        k = 1
        For i = 1 To n
            s(i).pir = InputBox("Введите название пирамиды")
            DataGridView1.Item(0, i - 1).Value = s(i).pir
 
            s(i).storon1 = InputBox("Введите длину первой стороны")
            DataGridView1.Item(1, i - 1).Value = s(i).storon1
 
            s(i).storon2 = InputBox("Введите длину второй стороны " + s(i).pir)
            DataGridView1.Item(2, i - 1).Value = s(i).storon2
 
            s(i).storon3 = InputBox("Введите длину третьей стороны")
            DataGridView1.Item(3, i - 1).Value = s(i).storon3
  
            s(i).visota = InputBox("Введите высоту пирамиды")
            DataGridView1.Item(4, i - 1).Value = s(i).visota
            k = k + 1
        Next i
 
        For i = 1 To n
            s(i).plosh = (1 / 2) * s(i).visota * (s(i).storon1 + s(i).storon2 + s(i).storon3)
            DataGridView1.Item(5, i - 1).Value = s(i).plosh
            k = k + 1
        Next i
        max = s(1).plosh
        For j = 1 To n
            If (s(j).plosh > max) Then
 
                max = s(j).plosh
            End If
        Next j
        TextBox1.Text = max
 
        min = s(1).plosh
        For j = 1 To n
            If (s(j).plosh < min) Then
 
                min = s(j).plosh
            End If
        Next j
        TextBox2.Text = min
    End Sub