Udtræk fra access where ???

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\\inetpub\\wwwroot\\enter\\system.mdb\"

sql = \"select * from login where sex = \'Kvinde\' and ryger = \'Ryger\' or ryger = \'Ikke ryger\' or ryger = \'Fest ryger\'\"

set rs = conn.execute(sql)

if (rs.bof or rs.eof) then
    response.write \"Der blev ikke fundet noget!\"
else
    do while not rs.eof
        response.write \"\" & rs(\"brugernavn\") & \"<br>\"
    rs.movenext
    loop
end if

set rs = nothing

conn.close
set conn = nothing
%>


hvorfor virker dette ikke??

der står sex = \'Kvinde\' men den udtrykker også den hvor sex er Mand.

Hvorfor gør den det??

det skal væresådan at den skal udskrive hvor Sex = Kvinde ig ryger skal enten være \'Ryger\', \'ikke Ryger\' eller Fest ryger..
Hvordan gør man det??

Mvh
Morten