Menampilkan Isi Data Grid ke Text Box Setelah Data Grid diKlik (Vb.Net 2008)

    Sub dgv_klik()

        On Error Resume Next

        Dim baris As Integer

        With DGV_Kota

            baris = .CurrentRow.Index

            txt_id_kota.Text = .Item(0, baris).Value

            txt_nama_kota.Text = .Item(1, baris).Value

            combo_id_negara.Text = .Item(2, baris).Value

        End With

        btn_simpan.Enabled = False

        btn_perbaiki.Enabled = True

        btn_hapus.Enabled = True

    End Sub