mismatch in criteria expression

Hejsa får ovenstående fejl i linie 20 som er:
Conn.Execute(strSQL)

Det er et modtagescript og ser sådan ud:

<% ' Databaseforbindelse - husk at angive sti til din database
        Set Conn =Server.CreateObject("ADODB.Connection")
                DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
                DSN = DSN & "DBQ=" & Server.MapPath("../db/subscribe.mdb")
        Conn.Open DSN
strSQL = "Insert into smagning (aargang) values('" & Request.Form("aargang") & "')"

' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse

Conn.Close
Set Conn = Nothing %>