Øge værdi med een i ASP/Access

Jeg ønsker at lave et system hvor man trykker på en knap, hvorefter "hits" værdien i databasen stiger med een. Det er selve opdateringen af databasen der ikke vil som jeg vil. Min kode ser ud som følger:

<%
her defineres strID
   
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("douche.mdb")
Conn.Open DSN

strSQL = "Select * From hits Where Id = " & strId
Set rs = Conn.Execute(strSQL)

dim taeller
taeller = rs("hits")
taeller = taeller + 1

SQL = "UPDATE hits SET hits = " & taeller & " Where Id = '" & strId & "' "

Set RS = Conn.Execute(SQL)

Conn.Close
Set Conn = Nothing

%>

Jeg får flg. fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/douche/data.asp, line 41