كود الحذف من Datagrid بواسطة ال Checkbox؟؟vb.net

السلام عليكم

حاولت حل الكود بنفسي ولكن لم انجح .....اتمنى ان تخبروني ما هو الخطا

وشكرااااااااااااااااا

Imports System.IO

Imports System.Data.SqlClient

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Dim constring As String

constring = "Data Source=it_s\sqlexpress;database=TAHPS;integrated security=true"

Dim d1 As New SqlConnection(constring)

d1.Open()

Dim i As Integer

For i = 1 To Me.TAHPSDataSet.employee_attendance.Rows.Count

Dim ch As CheckBox = CType(Me.TAHPSDataSet.Tables("employee_attendance" ).Rows(i).Item("Column1"), CheckBox)

If ch.Checked = True Then

Dim temp As String = Me.TAHPSDataSet.employee_attendance.Rows(i).Item(" emp_id").ToString

TextBox1.Text = temp

Dim r As SqlCommand = New SqlCommand("delete from employee_attendance where emp_id = '" + temp + "'", d1)

r.ExecuteNonQuery()

End If

Next i

d1.Close()

Me.Employee_attendanceTableAdapter.Fill(Me.TAHPSDa taSet.employee_attendance)

MessageBox.Show("Done.")

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'TODO: This line of code loads data into the 'TAHPSDataSet.employee_attendance' table. You can move, or remove it, as needed.

Me.Employee_attendanceTableAdapter.Fill(Me.TAHPSDa taSet.employee_attendance)

End Sub

End Class

السلام عليكم

الحمد لله عرفت اكتب الكود