!!!(((Yardım)))!!!Kaydet butonu yapamıyorum...

Imports System.Data.OleDb
Public Class Form1
    Private ReadOnly connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database\db.mdb"
    Private dbIslem As String = ""

    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)

        Dim conn As OleDbConnection = New OleDbConnection(connStr)
        Dim sComm As OleDbCommand = New OleDbCommand("SELECT * FROM Tablo1", conn)
        Dim reader As OleDbDataReader = Nothing

        Try
            conn.Open()
            reader = sComm.ExecuteReader()
            If reader.HasRows Then
                While reader.Read
                    DataGridView1.Rows.Add(New Object() {reader("id"), reader("ad"), reader("soyad")})
                End While
            End If
        Catch ex As Exception
            MsgBox(ex.Message)

        Finally
            If Not reader Is Nothing Then
                reader.Close()
            End If
            conn.Close()
        End Try

    End Sub
    Private Function YeniIdDegeriGetir() As Integer
        Dim conn As OleDbConnection = New OleDbConnection(connStr)
        Dim comm As OleDbCommand = New OleDbCommand("SELECT TOP 1 id FROM Tablo1 ORDER BY id DESC ", conn)
        Dim id As Int32 = 0

        Try
            conn.Open()
            id = CInt(comm.ExecuteScalar())
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            conn.Close()
        End Try
        YeniIdDegeriGetir = (id + 1)
    End Function
    Private Sub AktifSecimiGetir()
        If DataGridView1.SelectedRows.Count > 0 Then
            Dim secilenSatir As DataGridViewRow = DataGridView1.SelectedRows(0)
            TextBox1.Text = secilenSatir.Cells("ColumnId").Value.ToString()
            TextBox2.Text = secilenSatir.Cells("ColumnAd").Value.ToString()
            TextBox3.Text = secilenSatir.Cells("ColumnSoyad").Value.ToString()
        End If
    End Sub
    Private Sub TabloyuGuncelle()
        Select Case dbIslem
            Case "Yeni"
                DataGridView1.Rows.Add(New Object() {TextBox1.Text, TextBox2.Text, TextBox3.Text})
            Case "Sil"
                DataGridView1.Rows.Remove(DataGridView1.SelectedRows(0))
        End Select
    End Sub
    Private Sub degisiklikleriKaydet()
        Dim conn As OleDbConnection = New OleDbConnection(connStr)
        Dim comm As OleDbCommand = Nothing

        Select Case dbIslem
            Case "Yeni"
                comm = New OleDbCommand("INSERT INTO Tablo1 (id,ad,soyad) VALUES (ParamId,ParamAd,ParamSoyad)", conn)
                comm.Parameters.Add("ParamId", OleDbType.Integer).Value = TextBox1.Text
                comm.Parameters.Add("ParamAd", OleDbType.VarChar, 50).Value = TextBox2.Text
                comm.Parameters.Add("ParamSoyad", OleDbType.VarChar, 50).Value = TextBox3.Text
            Case "Sil"
                comm = New OleDbCommand("DELETE FROM Tablo1 WHERE id = ParamId", conn)
                comm.Parameters.Add("ParamId", OleDbType.Integer).Value = TextBox1.Text
        End Select

        Try
            conn.Open()
            comm.ExecuteNonQuery()
            TabloyuGuncelle()
            dbIslem = ""
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            conn.Close()
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AktifSecimiGetir()
    End Sub

    Private Sub EkleBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EkleBtn.Click
        degisiklikleriKaydet()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        dbIslem = "Yeni"
        TextBox1.Text = YeniIdDegeriGetir()
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MsgBox("Kayıt Silinsin mi?", MsgBoxStyle.YesNo, "Cevap ver ağam silemmi") = MsgBoxResult.Yes Then
            dbIslem = "Sil"
            degisiklikleriKaydet()
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class