ارجو المساعده في ايجاد طريقة حذف اكثر من سجل مره واحده

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

انا استخرجت القيم من قاعدة البيانات وجعلت لكل سجل امامه Checbox ليتم تحديد سجل واحد او اكثر وبالضغط على زر delete يقوم بالمسح فأتمنا افادتي باي طريقة

شاكر لكم تعاونكم

وهذا هو كود عرض البيانات عن طريق تكوين table

		Dim cmd As New Data.SqlClient.SqlCommand
		cmd.Connection = con
		cmd.CommandText = "select id,title,datetime from message"

		con.Open()


		Dim dr As Data.SqlClient.SqlDataReader
		dr = cmd.ExecuteReader
		'Dim r As TableRow
		'Dim c As TableCell
		Table1.Width = 800
		r = New TableRow

		c = New TableCell
		c.Text = "Select"
		r.Cells.Add(c)

		c = New TableCell
		c.Text = "Title"
		r.Cells.Add(c)

		c = New TableCell
		c.Text = "Date"
		r.Cells.Add(c)

		c = New TableCell
		c.Text = ""
		r.Cells.Add(c)

		Table1.Rows.Add(r)
		Dim x As Boolean = True
		Do While dr.Read()
			Dim i As Integer = dr(0)
			r = New TableRow
			r.BackColor = Drawing.Color.Azure
			c = New TableCell
			'c.Text = "<input id=CHBox type=checkbox value=" & dr(0) & ">"
			Dim CHBox As New CheckBox
			c.Controls.Add(CHBox)
			CHBox.ID = dr(0)
			CHBox.AutoPostBack = True
			r.Cells.Add(c)

			c = New TableCell
			c.Text = "<a href=show-message.aspx?t=" & i & ">" & dr(1) & " </a>"
			'c.Text = dr(1)
			r.Cells.Add(c)

			c = New TableCell
			c.Text = dr(2)
			r.Cells.Add(c)

			c = New TableCell
			Dim label As New Label
			c.Controls.Add(label)
			label.Text = CHBox.ID
			r.Cells.Add(c)


			'If dr.Read Then
			'	c = New TableCell
			'	c.Text = dr(0)
			'	r.Cells.Add(c)

			'	c = New TableCell
			'	c.Text = dr(1)
			'	r.Cells.Add(c)
			'End If

			If x Then
				r.BackColor = Drawing.Color.WhiteSmoke
			End If
			x = Not x

			'Dim ct As Integer
			ct += 1

			Table1.Rows.Add(r)

		Loop
		con.Close()