ขอโค้ดการ Insert update delete สำหรับ checkbox หน่อยครับ (vb.net)

    Sub btnDelete_OnClick(sender As Object, e As EventArgs)
        Dim chkDel As CheckBox
        Dim lblID As Label
        Dim i As Integer
        For i = 0 To myRepeater.Items.Count - 1
            chkDel = myRepeater.Items(i).FindControl("chkDel")
            lblID = myRepeater.Items(i).FindControl("lblCustomerID")
            IF chkDel.Checked = True Then
				strSQL = "UPDATE  customer SET Status = 'No' WHERE CustomerID = '"& lblID.Text &"' "
				objCmd = New SqlCommand(strSQL, objConn)
				objCmd.ExecuteNonQuery()
            End IF
        Next
		BindData()
    End Sub