สอบถามตัวอย่าง Code ASP Checkbox Update ทำงานร่วมกับ MS Access ครับ

<%
	Dim Conn,strSQL,objExec
	Dim chk
	Set Conn = Server.Createobject("ADODB.Connection")
	Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
	
	For Each chkVol in Request.Form("chkDel")
		IF chkVol <> "" Then
			chk = "Yes"
		Else
			chk = "No"
		End IF
		strSQL = ""
		strSQL = strSQL&"UPDATE customer SET Status = '"&chk&"'  "
		strSQL = strSQL&"WHERE CustomerID = '"&chkVol&"' "
		Set objExec = Conn.Execute(strSQL)	
	Next

	Response.write("Record Deleted.")
	Conn.Close()
	Set objExec = Nothing
	Set Conn = Nothing
%>