Mærkelig fejl ved conn. til Access

Hej,

Jeg har en Win2003 server stående med en Access 2000 database. Jeg bruger en include fil med min connection i:

<%
'Sti til database
strDatabasePath = "database/database.mdb"
'Åben database-forbindelse objekt
Set objConn = Server.CreateObject("ADODB.Connection")
'Åben database
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(strDatabasePath)
%>

Og så skal jeg lave min menu (include):

<!--#include file="dbconn.asp"-->
<%
Response.Write "<table class=""Menu"" border=""0"">" & VbCrLf
Set objNavi = objConn.Execute("SELECT * FROM Catalog WHERE CatalogParent=0 ORDER BY CatalogName")
If NOT objNavi.EOF then
    While NOT objNavi.EOF
        Response.Write "<tr valign=""top"">" & VbCrLf
        Response.Write "<td>"
        Response.Write "<b>.: <a href=""java script:void(0);"" class=""Menu"" OnClick=""Showhide('menu" & objNavi("CatalogID") & "');"">" & objNavi("CatalogName") & "</b></a>" & VbCrLf
        Set objParentNavi = objConn.Execute("SELECT CatalogId, CatalogName FROM Catalog WHERE CatalogParent = " & objNavi("CatalogID"))
        Response.Write "<table id=""menu" & objNavi("CatalogID") & """ style=""display:none;"" cellspacing=""0"" cellpadding=""0"" class=""SubMenu"">"
        If NOT objParentNavi.EOF then
            Response.Write "<tr valign=""top"">"
            While NOT objParentNavi.EOF
                Response.Write "<td><img src=""images/spacer.gif"" width=""10"" height=""1"">- <a href=""ShowByCatalog.asp?id=" & objParentNavi("CatalogID") & """>" & objParentNavi("CatalogName") & "</a></td>"
            objParentNavi.Movenext()
            Wend
            Response.Write "</tr>"
        Else
            Response.Write "<tr><td class=""body"">Ingen undermenuer!</td></tr>"
        End if
        Response.Write "</table>"
        objParentNavi.Close()
        Set objParentNavi = Nothing
        Response.Write "</td>" & VbCrLf
        Response.Write "</tr>" & VbCrLf
    objNavi.Movenext()
    Wend
Else
    Response.Write "<tr><td class=""body"">Ingen menuer!</td></tr>"
End if
Response.Write "</table>"

objNavi.Close()
Set objNavi = Nothing
%>

Men jeg får følgende fejl:
error '80004005'
/incl/navi.asp, line 4

Jeg henter data fra Access databasen et andet sted på siden og det virker fint nok. Den bruger samme connection.

Hvad kan der være galt?