Links fra en tabel til varer i anden tabel

Denne første side lister alle varegrupperne op fra en tabel som hedder varegrupper. Varegrupperne bliver lavet til links.
Den anden side skulle så vise alle varerne i den pågældende gruppe.

Jeg får følgende fejl når jeg den skal liste varerne op.

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key \'Temporary (volatile) Jet DSN for process 0x90c Thread 0xa10 DBC 0x1121fb4 Jet\'.
/computervarer/Computervarer.asp, line 11



\"Computerliste.asp\"

<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"Computervarer.mdb\")

strSQL = \"SELECT * FROM Varegrupper\"
set rs = myconn.execute(strSQL)

Do
    Id = rs(\"Id\")
    Varegruppe = rs(\"Varegruppe\")
    Varegruppebeskrivelse = rs(\"Varegruppebeskrivelse\")

    Gruppelink = \"<a href=Computervarer.asp?Varegruppe_id=\" & rs(\"Id\") & \">\" & Varegruppe & \"</a>\"

    Response.Write \"<li>\" & Gruppelink & \"</li>\"

rs.MoveNext
Loop While Not rs.EOF
myconn.Close
Set myconn = Nothing
%>


\"Computervarer.asp\"

<%
  Set myConn = Server.CreateObject(\"ADODB.Connection\")
  myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"Computervarer.mdb\")

  strSQL = \"SELECT * FROM Computervarer WHERE Varegruppe_id=\" & Request.Querystring(\"Id\")
set rs = myConn.execute(strSQL)

Do until rs.EOF
    Response.Write \"<tr><td><font face=\"\"Arial, Helvetica, sans-serif\"\" size=\"\"2\"\" color=\"\"#000000\"\">\"
    Response.Write rs(\"Varenr\")
    Response.Write \"</font></td>\"
    Response.Write \"<td><font face=\"\"Arial, Helvetica, sans-serif\"\" size=\"\"2\"\" color=\"\"#000000\"\">\"
    Response.Write rs(\"Varebeskrivelse\")
    Response.Write \"</font></td>\"
    Response.Write \"<td><font face=\"\"Arial, Helvetica, sans-serif\"\" size=\"\"2\"\" color=\"\"#000000\"\">\"
    Response.Write rs(\"Udsalgspris_incl_moms\")
    Response.Write \"</font></td>\"
    Response.Write \"<td><font face=\"\"Arial, Helvetica, sans-serif\"\" size=\"\"2\"\" color=\"\"#000000\"\">\"
    Response.Write rs(\"Lager_Bestilling\")
    Response.Write \"</font></td></tr>\"

rs.MoveNext
Loop

myConn.Close
Set myConn = Nothing
%>