Fel i Databaskod?

Hejsan!

Jag har lite problem med en kod, men jag hittar ej felet. Så jag frågar nu er om ni hittar någonting fel i denna kod (koden är till ett forum):

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

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "SELECT \* FROM members WHERE id=" & Session("id")
RecSet.Open Addera, Conn, 1, 1

Dim moderator, status
moderator = RecSet("moderator")
status = RecSet("status")

RecSet.Close
Set RecSet = Nothing

If status = "online" Then
Response.Write "Status: \<font color='#005500'\>\<b\>online\</b\>\</font\>"
Else
Response.Write "Status: \<font color='#550000'\>\<b\>offline\</b\>\</font\>"
End If

Tack för svar! :l