kod hatası alıyorum "Nesne başvurusu bir nesnenin örneğine ayarlanmadı."

Dim cokiyi As Integer

Dim iyi As Integer

Dim orta As Integer

Dim kotu As Integer

Dim cokkotu As Integer

Dim kd As New OleDbCommand("Select * from anket", baglanti)

Dim dr As OleDb.OleDbDataReader

baglanti.Open()

dr = kd.ExecuteReader

Do While dr.Read

If dr("id") = 1 Then

If dr("id") = 2 Then

Else

End If

cokiyi = dr("cokiyi")

iyi = dr("iyi")

orta = dr("orta")

kotu = dr("kotu")

cokkotu = dr("cokkotu")

Else

End If

Loop

kd.Dispose()

If RadioButtonList6.SelectedItem.Text = "ok iyi" Then

Dim kdx As New OleDbCommand("update anket set cokiyi='" & cokiyi + 1 & "' where id=1", baglanti)

kdx.ExecuteNonQuery()

kdx.Dispose()

baglanti.Close()

End If

If RadioButtonList6.SelectedItem.Text = "iyi" Then

Dim kx As New OleDbCommand("update anket set iyi='" & iyi + 1 & "' where id=1", baglanti)

kx.ExecuteNonQuery()

kx.Dispose()

baglanti.Close()

End If

If RadioButtonList6.SelectedItem.Text = "orta" Then

Dim kb As New OleDbCommand("update anket set orta='" & orta + 1 & "' where id=1", baglanti)

kb.ExecuteNonQuery()

kb.Dispose()

baglanti.Close()

End If

If RadioButtonList6.SelectedItem.Text = "kt" Then

Dim kc As New OleDbCommand("update anket set kotu='" & kotu + 1 & "' where id=1", baglanti)

kc.ExecuteNonQuery()

kc.Dispose()

baglanti.Close()

End If

If RadioButtonList6.SelectedItem.Text = "ok kt" Then

Dim br As New OleDbCommand("update anket set cokkotu='" & cokkotu + 1 & "' where id=1", baglanti)

br.ExecuteNonQuery()

br.Dispose()

baglanti.Close()

End If

If RadioButtonList7.SelectedItem.Text = "ok iyi" Then

Dim er As New OleDbCommand("update anket set cokiyi='" & cokiyi + 1 & "' where id=2", baglanti)

er.ExecuteNonQuery()

er.Dispose()

baglanti.Close()

End If

 

 

 

yardımlarınızı bekliyorum