อัพเดทข้อมูลในตารางไปแร้วแต่ข้อมูลในตารางไม่ทำการอัพเดทให้

if Request.QueryString("CusID5") = "1" then
	  
		Set Conn = Server.Createobject("ADODB.Connection")
		Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("Network.mdb"),"" , ""
		strSQL = "UPDATE Reserve SET "
		strSQL = strSQL&"Status = 'Free'"
		strSQL = strSQL&"WHERE Username = '"&Request.QueryString("CusID1")&"' and IP = '"&Request.QueryString("CusID2")&"' and Port = '"&Request.QueryString("CusID3")&"' and DateReserve = #"& CDate(Request.QueryString("CusID4"))&"# "
	Set objExec = Conn.Execute(strSQL)
	Conn.Close()
	Set objExec = Nothing
	Set Conn = Nothing
	
	Set Conn = Server.Createobject("ADODB.Connection")
		Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
		strSQL = "UPDATE MyTable SET "
		strSQL = strSQL&"Reserve = 'Free'"
		strSQL = strSQL&"WHERE  IP = '"&Request.QueryString("CusID2")&"'  and Port = '"&Request.QueryString("CusID3")&"'"
	Set objExec = Conn.Execute(strSQL)
	Conn.Close()
	Set objExec = Nothing
	Set Conn = Nothing
	If Err.Number = 0 Then
		 	Response.Write("<script>alert('Confirm User Completes');</script>")
			Response.AddHeader "REFRESH","0;URL=frm_HomeUser.asp"
	Else
		Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")
	End IF