Login script driller på ny server

Min kode

<%
SET RS = Server.CreateObject("ADODB.Connection")
RS.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("security.mdb")

If Request("mode") = "Check" then

Function unQuote(strTekst)
  strTekst = Trim(strTekst)
  unQuote = Replace(strTekst,"%","53")
End Function

    ' Gemmer formfelterne i Variabler
        strUsername = unQuote(request("username"))
        strPassword = unQuote(request("password"))

  Sql = "Select Count(*) as Found from user where (username = '" & strUsername  & "') and (password ='" & strPassword  & "')"
  Set LO = RS.Execute(Sql)
  if LO("Found") = 0 then
    Session("login") = ""
    error = "Du blev ikke godkendt af systemet"
  else
  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("security.mdb")
  Set conn = Server.CreateObject("ADODB.Connection")
  conn.Open strDSN
  strSQL = "SELECT * FROM user where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
  Set ez = conn.Execute(strSQL)
    Session("login") = "yes mate"
    Response.Redirect "adminsite.asp"
    EZ.Close
    RS.Close
    Conn.Close
  end if
end if
%>

---------------------------
Fejl :

error '80004005'
Unspecified error

/adm/login.asp, line 18

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

Linie 18 :
  Set LO = RS.Execute(Sql)

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

Fejlen opstår når jeg prøver at logge ind.

What gives ? Jeg har brugt den på Cliche, men er skriftet til Concor. Har ellers lavet de ændringer der skulle til, but this illudes me.