en alltaki boş satıra tıklandığında hata alabilrsiniz bunun için try catch kullanmalısınız…

[vb]

Try

Dim i As Integer
i = DataGridView1.CurrentRow.Index
txtID.Text = DataGridView1.Item(0, i).Value
cbSirket.Text = DataGridView1.Item(1, i).Value
cbKurum.Text = DataGridView1.Item(2, i).Value
cbHizmet.Text = DataGridView1.Item(3, i).Value
dtAcilis.Value = DataGridView1.Item(4, i).Value
txtkapanis.Text = DataGridView1.Item(5, i).Value
txtD1.Text = DataGridView1.Item(6, i).Value
txtD2.Text = DataGridView1.Item(7, i).Value
txtD3.Text = DataGridView1.Item(8, i).Value
txtD4.Text = DataGridView1.Item(9, i).Value
txtD5.Text = DataGridView1.Item(10, i).Value
txtD6.Text = DataGridView1.Item(11, i).Value
txtD7.Text = DataGridView1.Item(12, i).Value
txtKisiSayisi.Text = DataGridView1.Item(13, i).Value
txtKullaniciAdi.Text = DataGridView1.Item(14, i).Value
txtKullaniciNo.Text = DataGridView1.Item(15, i).Value
txtSistemSifre.Text = DataGridView1.Item(16, i).Value
txtIsyeriSifresi.Text = DataGridView1.Item(17, i).Value
txtAciklama.Text = DataGridView1.Item(18, i).Value
Catch ex As Exception
MessageBox.Show(“Eee tabi tıkladığımız yere dikkat etmeliyiz dimi ”)
End Try
[/vb]