Insert into problemer

Hej,

jeg har et problem jeg ikke kan se hvori fejlen ligger. En ganske almindelig insert sql-sætning i vbscript. Det er en access db. Alle db-attributter er af typen tekst.

strsql = "Insert Into kontakt " & _
                "(orgnavn, email, enavn, fnavn, pnr, by, nbtilmeldt, status) Values " & _
                "('" & strorgnavn & "', '" & stremail & "', '" & strenavn & "', " & _
                "'" & strfnavn & "', '" & strpnr & "', '" & strby & "', '" & strnbtilmeldt & "', " & _
                "'" & strstatus & "')"

Nedenstående er en response.write(strsql):
Insert Into kontakt (orgnavn, email, enavn, fnavn, pnr, by, nbtilmeldt, status) Values ('Kunstnyt', 'kunst@oticon.dk', 'Melvang', 'Hans', '9000', 'Aalborg', 'Ja', 'kunstforening')


Function gemkontakt(porgnavn, pemail, penavn, pfnavn, ppnr, pby, pnbtilmeldt, pstatus)
        Dim strsql, strorgnavn, stremail, strenavn, strfnavn, strpnr, strby, strnbtilmeldt
        Dim strstatus
        Dim objdb
        strorgnavn = porgnavn
        stremail = pemail
        strenavn = penavn
        strfnavn = pfnavn
        strpnr = ppnr
        strby = pby
        strnbtilmeldt = pnbtilmeldt
        strstatus = pstatus
        strsql = "Insert Into kontakt " & _
                "(orgnavn, email, enavn, fnavn, pnr, by, nbtilmeldt, status) Values " & _
                "('" & strorgnavn & "', '" & stremail & "', '" & strenavn & "', " & _
                "'" & strfnavn & "', '" & strpnr & "', '" & strby & "', '" & strnbtilmeldt & "', " & _
                "'" & strstatus & "')"
        Response.Write(strsql)
        Set objdb = new clsdb
        objdb.opendb(strsql)
        objdb.closedb()
        Set objdb = Nothing
    End Function

Jeg har inkluderet min fil der refereres til i "new clsdb", og der opnås fint connection til databasen.

På forhånd tak.

Lars