Fejlmelding

Hej alle sammen

Hvor giver følgende en fejl:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("XXXXX"))
       
strCheckSQL = "SELECT count(kuponnr) as isthere FROM enkelt WHERE kuponnr=" & kuponnr

Set rs = Conn.Execute(strCheckSQL)
  If rs = ("isthere")>0 Then %>
           
    Det anvendte kuponnr er allerede oprettet
       
  <%
  else

  Og så en masse andet......

------------------

Fejlen der kommer er en type mismatch