Genre fejl,komme separeret output

Jeg har i min tabel "film" en kolonne "genre" hvor jeg angiver hvilke genrer mine film skal placeres i. Denne kolonne er komme separeret, da jeg ønsker at kunne vælge flere genrer.

Problemet er, at hvis jeg i min film eks. vælger genreid 3, så når min tabel med genrerløbes igennem, vises genre 30 også, da tallet "3" indgår 30.

Hvordan undgår jeg dette?

<%
        strGenre = "select * from Genre order by Genre"
        Set RSGenre = conn.Execute(strGenre)
        While Not RSGenre.EOF
        if instr(rsFilm("Genre"),rsGenre("GenreID")) <> 0 then
        %>
        <a href="?Page=List&ID=<%= RSGenre("GenreID")%>" title=""><%= RSGenre("Genre")%></a>&nbsp; 
        <%
        end if
        RSGenre.MoveNext
        Wend
        Set RSGenre=Nothing
        %>