problemer med recordset

function hent
sql = "select Medlem,Interesseret,Klient,ID,Navn,URL,Gruppe from Links order by ID"
set Record=DB.Execute(sql)
end function

hent

while not Record.eof

%>

<tr>
<form action="update.asp" id=<%=Record("ID")%>>
<input name="Action" type="hidden" value="edit">
    <td><%=Record("ID")%><input name="ID" type="hidden" value="<%=Record("ID")%>"></td>
    <td><input name="Navn" type="text" value="<%=Record("Navn")%>" size="40"> </td>
   
    <td>
    Medlem:<input <%if Record("Medlem") = "Ja" then response.write "checked" end if%> name="Medlem" type="checkbox" value="Ja">

---------------
Problemet er, at når jeg checker på Record("Medlem") så sættes der ikke kryds selvom sammenligningen er sand.

Jeg har oplevet det før, men har ikke fundet ud af hvad der går galt.