Data fra en database ind i en tabel - problem

Hej
Jeg prøver at putte data fra en database ind i en tabel, med lidt farver på. Databasen hedder links, Tabellen i databasen hedder info.

Nogen der kender følgende fejl:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/sapworld/display.asp, line 33

Her er koden:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/SAPWORLD/database/links.mdb")
Conn.Open DSN
sql = "Select * from info"
set rs = Conn.execute(sql)
%>


<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td>&nbsp;
<tr>
<td>
<table width="60%" border="0" cellspacing="1" cellpadding="4">
<tr>
<td width="20%" bgcolor="#6699CC"><B>nr.</B></td>
<td width="20%" bgcolor="#6699CC"><span lang="da"><b>Initials</b></span></td>
<td width="20%" bgcolor="#6699CC"><span lang="da"><b>Module/Type</b></span></td>
</tr>

<%blnChangeColor=false%>
<%if objinfo.BOF=true and objinfo.EOF=true then%>
<h1> No data has been found in Period <b> &nbsp;&nbsp;&nbsp;
</b>
<%
else
arrData=objinfo.GetRows ()
arrSize=ubound(arrData,2)
if isarray(arrdata) then
for kk=0 to arrSize
if blnChangeColor=true then
%>
<tr>
<td width="20%" bgcolor="#DDE9F5"><%=arrData(0,kk)%></td>
<td width="20%" bgcolor="#DDE9F5"><%=arrData(1,kk)%></td>
<td width="20%" bgcolor="#DDE9F5"><%=arrData(2,kk)%></td>
                   
</tr>                       
                       
<%
blnChangeColor=false
else
%>
<tr>
<td width="5%" bgcolor="#ffffff"><%=arrData(0,kk)%></td>
<td width="10%" bgcolor="#ffffff"><%=arrData(1,kk)%></td>
<td width="20%" bgcolor="#ffffff"><%=arrData(2,kk)%></td>
</tr>                       
<%
blnChangeColor=True
end if 
next
else
end if
end if%>
           
</table>

</table>


<%'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%><%
   
objlinks.Close
set objlinks=nothing
set objConn =nothing
%>

Hilsen

Kim