سؤال فى الحذف ضرورى

السلام عليكم ورحمته الله وبركاته

يظهر خطا عند عمل الكود للحذف

 For x As Integer = DataGridView1.Rows.Count - 1 To 0 Step -1
 	Dim row As DataGridViewRow = DataGridView1.Rows(x)
 	' لا يمكن حذف السطر الأخير المعد لزيادة سطر جديد
 	If Not row.IsNewRow Then
 	' التحقق من قيمة الخلية تشيك بوكس
 	If row.Cells(2).Value = True Then
 	' حذف السطر
 	If cn.State = ConnectionState.Open Then cn.Close()
 	cn.Open()
 	cmd.Parameters.Clear()
 	Dim id As Integer = row.Cells(0).Value
 	cmd.CommandText = "deletework"
 	cmd.Parameters.Add("@id", SqlDbType.Int).Value = id
 	cmd.ExecuteNonQuery()
 	DataGridView1.Rows.Remove(row)
 	End If
 	End If
 	Next
 	MessageBox.Show("تم الحذف ")

الخطا هو Incorrect syntax near deletework