incrementer med 1

Hej igen

imens jeg venter på min server kommer op igen så har jeg lige et nyt spørgsmål. Vil denne virke?

<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../database.mdb")
    SQLstringK="UPDATE kunde SET antal=+1 &"'WHERE id="& id
    Connection.Execute(SQLstringK)
%>

hvis jeg prøver at lægge 1 til antal?