CRUD DatagridView

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Constr As String
        Constr = "server=localhost;" & "user=root;" & "password='';" & "database=sipdapeli;"
        Dim sqlstr As String = "SELECT tb_perijinan.ID_PERUSAHAAN, tb_perijinan.JNS_PERIJINAN, tb_perijinan.NO_PERIJINAN, tb_perijinan.TGL_PERIJINAN FROM tb_perijinan WHERE tb_perijinan.ID_PERUSAHAAN = 003"
        adapter = New MySqlDataAdapter

        Try
            conn = New MySqlConnection(Constr)
            conn.Open()
            adapter.SelectCommand = New MySqlCommand(sqlstr, conn)
            Dim cb As MySqlCommandBuilder
            cb = New MySqlCommandBuilder(adapter)
            adapter.Fill(ds, "tb_perijinan")
            DataGridView1.DataSource = ds
            DataGridView1.DataMember = "tb_perijinan"
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        'Penambahan Data

        Dim dschange As DataSet = New DataSet
        If (ds.HasChanges(DataRowState.Added)) Then
            'Menambahkan Record Yang Ditambahkan
            dschange = ds.GetChanges(DataRowState.Added)
            Dim rowchange As Integer
            rowchange = adapter.Update(dschange, "tb_perijinan")
            If (rowchange > 0) Then
                MessageBox.Show(rowchange.ToString() & " Record Berhasil Dimasukan")
            End If
        End If

        'Pengubahan Data
        If (ds.HasChanges(DataRowState.Modified)) Then
            dschange = ds.GetChanges(DataRowState.Modified)
            Dim Rowchange As Integer
            Rowchange = adapter.Update(dschange, "tb_perijinan")
            If (Rowchange > 0) Then
                MessageBox.Show(Rowchange.ToString() & " Record Berhasil diubah")
            End If
        End If

        'Penghapusan Data
        If (ds.HasChanges(DataRowState.Deleted)) Then
            dschange = ds.GetChanges(DataRowState.Deleted)
            Dim Rowchange As Integer
            Rowchange = adapter.Update(dschange, "tb_perijinan")
            If (Rowchange > 0) Then
                MessageBox.Show(Rowchange.ToString() & " Record Berhasil dihapus")
            End If
        End If

        'Menerapkan perubahan
        ds.AcceptChanges()

        'Refress Datagrid
        DataGridView1.Refresh()
    End Sub