Hvad er der galt

Jeg har en vare database i access.
På min første asp-side lister den alle varegrupperne op som bliver lavet til links. Denne side virker bortset fra at hvis der er flere vare men ens varegruppe bliver varegruppen listet op flere gange.

\"Computerliste.asp\"

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

strSQL = \"Select * From Computervarer Order by Varegruppe \"
Set rs = Conn.Execute(strSQL)

Do
  strNavn = rs(\"Varegruppe\")

  strLink = \"<a href=\'Computervare.asp?id=\" & rs(\"Varegruppe\") & \"\'>\" & strNavn & \"</a>\"

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

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



På denne (næste) side skal den så vise alle varerne i den på gældende gruppe.
\"Computervare.asp\"

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

strSQL = \"Select * from Computervarer Where Varegruppe = \" & Request.Querystring(\"Varegruppe\")
Set rs = Conn.Execute(strSQL)
%>

<%
Response.Write \"<div align=\"\"center\"\"><table width=\"\"300\"\" border=\"\"1\"\" cellspacing=\"\"0\"\" cellpadding=\"\"2\"\" >\"
Response.Write \"<tr><td><b><font face=\"\"Arial, Helvetica, sans-serif\"\" size=\"\"4\"\" color=\"\"#000000\"\"><div align=\"\"center\"\">\"
Response.Write rs(\"Varegruppe\")
Response.Write \"</div></font></b></td></tr></table></div>\"
%>
<br>
<table width=\"650\" border=\"1\" cellspacing=\"0\" cellpadding=\"2\" align=\"center\">
  <tr bgcolor=\"#000000\">
    <td width=\"97\"><b><font face=\"Arial, Helvetica, sans-serif\" size=\"3\" color=\"#FFFFFF\">Varenr</font></b></td>
    <td width=\"415\"><b><font face=\"Arial, Helvetica, sans-serif\" size=\"3\" color=\"#FFFFFF\">Varebeskrivelse</font></b></td>
    <td width=\"54\">
      <div align=\"center\"><b><font face=\"Arial, Helvetica, sans-serif\" size=\"3\" color=\"#FFFFFF\">Pris</font></b></div></td>
    <td width=\"58\">
<div align=\"center\"><b><font face=\"Arial, Helvetica, sans-serif\" size=\"3\" color=\"#FFFFFF\">Lager</font></b></div></td></tr>
  <%
Do
    Response.Write \"<tr><td><font face=\"\"Arial, Helvetica, sans-serif\"\" size=\"\"2\"\" color=\"\"#000000\"\">\"
    Response.Write rs(\"Varenr\") & \"</font></td><td><font face=\"\"Arial, Helvetica, sans-serif\"\" size=\"\"2\"\" color=\"\"#000000\"\">\"
    Response.Write rs(\"Varebeskrivelse\") & \"</font></td><td><font face=\"\"Arial, Helvetica, sans-serif\"\" size=\"\"2\"\" color=\"\"#000000\"\"><div align=\"\"center\"\">\"
    Response.Write rs(\"Udsalgspris_incl_moms\") & \"</font></div></td><td><font face=\"\"Arial, Helvetica, sans-serif\"\" size=\"\"2\"\" color=\"\"#000000\"\"><div align=\"\"center\"\">\"
    Response.Write rs(\"Lager_Bestilling\") & \"</font></div></td></tr>\"
%>
  <%
rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>

Jeg får denne fejlmeddelelse:
Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression \'Varegruppe =\'.

/computervare/Computervare.asp, linje 17


Er der nogle der kan hjælpe mig med at kun listet hver varegruppe op kun én gang, og hvad der går galt på den næste side.