tjek om et felt i access er udfyldt

jeg er ved at lave et forum. Når brugeren stiller et sp gemmes dette i db. Når så administratoren skal svare vil jeg gerne være sikker på at han ikke kan komme til at svare på det samme spørgsmål to gange. Altså vil jeg gerne tjekke for om feltet "svar" i min db er udfyldt.
(når sp bliver besvaret gemmes opdateres tabellen og svaret gemmes sammen med sp.)

her er lidt kode

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% option explicit %>
<% Response.Buffer = true %>
<!-- #include file ="connect.asp" -->
<!-- #include file ="adovbs.inc" -->

<%
Response.Expires = 0

dim svar
dim email
dim svaret
dim objRec
dim objConn
dim strSQL
dim titel
dim strConn
dim spoergsmol

email = Request.Form("email")
titel = Request.Form("titel")
svar = Request.Form("svar")
session("svar") = ""

function tjek_svar(svar)
    tjek_svar= false
        set strConn = Server.CreateObject("ADODB.connection")
        set objRec = Server.CreateObject("ADODB.recordset")
        strConn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strPlacering
        strSQL = "SELECT * from spoergsmol"
   
    with objRec
    .Open strSQL, strConn, adOpenForwardOnly, , adCmdText
        while not .EOF
        if .fields("svar") = session("svar") then
            tjek_svar = true       
    end if
        .moveNext
        wend
        .Close
    end with
set objRec = nothing
end function   

er_gemt
sub er_gemt
    if not (tjek_svar(svar)) then
            opret_svar
        else
            Response.Redirect("adm_sp_besvaret.asp")    
        end if
end sub

opret_svar
sub opret_svar
    set objConn = Server.CreateObject("ADODB.connection")
    objConn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strPlacering
    strSQL = "UPDATE spoergsmol SET svar = '" & svar & "' WHERE email = '" & email & "';"
    set objRec = objConn.execute(strSQL)
    Response.Redirect("adm_forside.asp")
   
end sub

objConn.close
set objConn = nothing
%>