Meget langsomme tabelopslag ved flere "Select."

Hej,

Er der nogen der kan forklare hvorfor der går næsten 20 sek. med efterfølgende stump kode ?
---
Function checkloginDealer
    Dim c1, rsUser, rsDealer

    set c1 = createobject("ADODB.Connection")
    c1.Open "FILEDSN=Web.dsn"

    user = Request.Cookies("WEB")("user")

    if user="" then
        Response.Redirect Application("VRoot") & "/default.asp"
        Response.End
    end if

    set rsUser = c1.Execute("SELECT * FROM Person WHERE brugerkode=" & safestring(user))
    if rsUser.eof then
        Response.Redirect Application("VRoot") & "/default.asp"
        Response.End
    end if

    set rsDealer = c1.execute("SELECT * FROM Dealer WHERE DealerAccount =" & safestring(rsUser("DealerAccount")))
    if rsDealer.eof then
        Response.Redirect Application("VRoot") & "/default.asp"
        Response.End
    end if

    Response.Cookies("WEB")("user") = user
    Response.Cookies("WEB").Expires = Date() + 10
End function
---

Når jeg kun udfører eet opslag går den med normal hastighed, dvs. svartid under 1 sek.

På forhånd tak.