พี่ๆคะ ช่วยดู error ให้หน่อยน่ะคะ ไม่เข้าใจตรงเงื่อนไขที่เขียนไป ว่าต้องใช้คำสั่งอะไร แล้วส่วนที่error ต้องแก้ส่วนไหน

Dim chk As CheckBox
chk = Ctype(row.FidnControl("ChkDelete"),CheckBox)
If chk.Checked = True Then

End IF

Protected Sub deletedata()
        Dim sql As String
        Dim chk As CheckBox
        chk = CType(Rows.FidnControl("ChkDelete"), CheckBox)
        Try
            For Each row As GridViewRow In GridView1.Rows
                If chk.Checked = True Then
                    sql = "DELETE FROM tb_mate_ann WHERE mate_id ='" & GridView1.DataKeys(row.RowIndex).Value & "'"
                    ObjDb.ExecuteNonQuery(sql)
                    'btnDelete.Attributes.Add("OnClick", "return confirm('Confirm to delete record')")
                End If
            Next
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try

    End Sub