Try
            Dim gridbaris As DataGridViewRow = DataGridView1.Rows(e.RowIndex)
            K_bukuTextBox.Text = gridbaris.Cells(0).Value.ToString
            Judul_bukuTextBox.Text = gridbaris.Cells(1).Value.ToString
            KategoriTextBox.Text = gridbaris.Cells(2).Value.ToString
            Tanggal_diterimaDateTimePicker.Value = gridbaris.Cells(3).Value.ToString
            Jumlah_bukuTextBox.Text = gridbaris.Cells(4).Value.ToString
            SumberTextBox.Text = gridbaris.Cells(5).Value.ToString

            K_bukuTextBox.Enabled = True
            b_simpan.Enabled = False
            b_hapus.Enabled = True
            b_ubah.Enabled = True
        Catch ex As Exception
            MsgBox("Terjadi Kesalahan", MsgBoxStyle.Critical)
        End Try