Provider error?? What the

Hej

Følgende kode...
<%

Response.Buffer = True

' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("polproc.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
    Sql = "SELECT * FROM polproc ORDER BY id ASC"
    Set Record =  Con.Execute(Sql)

%>
<!--#include file="designstart.txt" -->
<!--#include file="designtop.txt" -->
<h1>POLITIKKER OG PROCEDURER:</h1>
<table width="100%" cellspacing="0" border="0">
<% Do While Not Record.EOF %>
<tr bgcolor="<%= bgcolor %>">
<%
If Record("id") = Request.Querystring("showthis") then
%>
<td><a name="<%= Record("id") %>"></a><b><%= Record("overskrift") %></b><br>
<%= Record("indhold") %></td>
<%
else
%>
<td><a name="<%= Record("id") %>"></a><a href="polpro.asp?showthis=<%= Record("id") %>"><%= Record("overskrift") %></a></td>
<%
end if
%>
</tr>
<%
Record.MoveNext
Loop
%>
</table>
<!--#include file="designbund.txt" -->
<%
' Lukke connection
Con.Close
Set Con = Nothing
%>

... giver følgende fejlmelding:
Provider error '80004005'

Unspecified error

/ny/polpro.asp, line 8


Hvad er der galt?