รบกวนขอความช่วยเหลือเรื่อง Delete Row แบบ Multi Checkbox หน่อยครับ

Dim chkDel As CheckBox
        Dim hpl1 As HyperLink
        Dim lab1, lab2 As Label
        Dim strDate As Date
        Dim i As Integer
        For i = 0 To myRepeater.Items.Count - 1
            chkDel = myRepeater.Items(i).FindControl("chk1")
            hpl1 = myRepeater.Items(i).FindControl("hpl1")
            lab1 = myRepeater.Items(i).FindControl("label4") 'ข้อมูลนี้คือ DATE ครับ ซึ่งแสดงใน repeater เป็น label4
            lab2 = myRepeater.Items(i).FindControl("label5")
            If chkDel.Checked = True Then
                strDate = Convert.ToDateTime(lab1) 'อันนี้ผมเปลี่ยนเป็น DATETIME 
                strSQL = "DELETE FROM Reserv_room WHERE RoomID = '" & hpl1.Text & "'  AND Date_reserv = '" & strDate.ToShortDateString & "' AND Timestart = '" & lab2.Text & "' " 
                objCmd = New OleDbCommand(strSQL, objConn)
                objCmd.ExecuteNonQuery()
            End If
        Next
        'BindData()
        Response.Redirect("search.aspx")