Fejl ASP kode

Hej!

Jeg har lavet et lille script her, forbinder til en database, men forskellige tabeller. Derfor har jeg lavet 3 forbindelser (2x til en tabel og 1x til en anden tabel)... Men det ser ikke ud til at virke. Jeg får denne fejl, når jeg går ind på siden:


Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/znuggle_com/aktie/homepage.asp, line 22


Og koden ser sådan ud:


<%@ Language=VBScript %>
<%
If Not Session("login") > 0 Then Response.Redirect("login.asp")
%>
<!-- #include file = "header.asp" -->
<%
set Conn = Server.createobject("adodb.connection")
conn.Open "DBQ="& Server.MapPath(".") &"/db.mdb; DefaultDir=DBQ="& Server.MapPath("/") &";Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * FROM Community WHERE ID = " & Session("login")
Set RS = conn.Execute(SQL)
%>
<p><b>Hej <%=RS("username")%>!</b></p>
<p>Her er Deres portfolio. De kan bruge menuen ude i venstre side til at navigere Dem rundt på sitet.</p>
<%
conn.Close
set Conn = Nothing
%>
<%
set Conn = Server.createobject("adodb.connection")
conn.Open "DBQ="& Server.MapPath(".") &"/db.mdb; DefaultDir=DBQ="& Server.MapPath("/") &";Driver={Microsoft Access Driver (*.mdb)};"
SQL2 = "SELECT * FROM Stocks WHERE OwnerID = " & Session("login")
Set RS = conn.Execute(SQL2)
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" style="border: 1 solid #000000;">
  <tr>
    <td width="20%" style="border-right: 1 solid #000000;"><b>Aktienavn</b></td>
    <td width="20%" style="border-right: 1 solid #000000;"><b>Købskurs</b></td>
    <td width="20%" style="border-right: 1 solid #000000;"><b>Antal</b></td>
    <td width="20%" style="border-right: 1 solid #000000;"><b>Købskurs * Antal</b></td>
    <td width="20%"><b>Sælg</b></td>
  </tr>
<% Do While Not RS.EOF %>
  <tr>
    <td width="20%" style="border-right: 1 solid #000000;"><%=RS("StockName")%></td>
    <td width="20%" style="border-right: 1 solid #000000;"><%=RS("BuyValue")%></td>
    <td width="20%" style="border-right: 1 solid #000000;"><%=RS("Number")%></td>
    <td width="20%" style="border-right: 1 solid #000000;">
<%
Price = RS("BuyValue") * RS("Number")
Response.Write Price
%>
    </td>
    <td width="20%"><i>Sælg</i></td>
  </tr>
<%
RS.MoveNext
Loop
%>
</table>
<%
conn.Close
set Conn = Nothing
%>
<%
set Conn = Server.createobject("adodb.connection")
conn.Open "DBQ="& Server.MapPath(".") &"/db.mdb; DefaultDir=DBQ="& Server.MapPath("/") &";Driver={Microsoft Access Driver (*.mdb)};"
SQL3 = "SELECT * FROM Community WHERE ID = " & Session("login")
Set RS = conn.Execute(SQL3)
%>
<p>Kontant: <u><%=RS("Money")%> kr.</u></p>
<%
conn.Close
set Conn = Nothing
%>
<!-- #include file = "footer.asp" -->


Nogen der kan hjælpe mig?