bu şekilde hata vermesi normal

Set yap derken like komutunu kullanmışsın.

Connection.Execute ("Update liste set pr='" & request("pr") & "' where dn like '" & site & "'")