fejlmelding i mit scrip

jeg har følgende script:

<% 'vælger kilde
sql = "SELECT * FROM galleri ORDER BY id DESC"
Set objRec = Conn.Execute(sql)
if objRec.EOF or objRec.BOF then 'hvis notesbogen er tom
%>der er ingen data at slette
<% Else %>
<% 'løkke som gentager sig selv til ikke flere punkter i databasen
while not objRec.eof
%>
<a href="galleriloop.asp?id=<%=objRec("id")%>" class="link1"><%=objRec("navn1")%></a>
<%
objRec.movenext
wend
'afslutter løkken ved ikke flere poster
end if
%>

min databaseconnection er:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("/db/database")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};"&DBPath
%>

men jeg får følgende fejl, scriptet har virkert før

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/frame/tekst/galleri.asp, line 6

I min database er følgende tabel:

id    mappe    navn1
1    hej    hej