Loop med select list

Skulle behöva lite hjälp från er!

Här en tabell som heter USERS:
 users_name
--------------
  Pevensie
     Cye
   Clonei 
    Albra

Först så loopas alla "users" ut för att sedan lägga dom i en selected lista

Do until RecSet.EOF
lista = lista + "<option>"&RecSet("username")&"</option>"
RecSet.Movenext

Resultat blir så här:

<select name="player">
<option>Pevensie</option>
<option>Cye</option>
<option>Clonei</option>
<option>Albra</option>
</select>

Efter det öppnas en annan Tabell som heter PLAYERS:
User - Players_id
-----------------------------
Pevensie 5
Cye 5
Albra 6
Clonei 6

Och då vill jag ha det så här:
If Players_id = 5 then REMOVE "User" FROM Selected listan.
Så alltså ska selected listan se ut så här när det är klart i detta exempel:

<select name="player">
<option>Clonei</option>
<option>Albra</option>
</select>

Jag har funderat ett tag nu och blir bara dummare, hittar ingen lösning på detta.
Hoppas ni förstår vad jag menar!

Mvh,
Rikard

Din SQL för RecSet (översta):

SELECT U.* From Users U
INNER JOIN Players p ON p.User = u.username
WHERE p.Players_Id <> 5;

sql = "SELECT U.* From Users U INNER JOIN Players p ON p.User = u.username WHERE p.Players_Id <> 5"

Jag hade nog kanske funderat på att inte köra från Players.User mot användarnamnet utan hellre mot Users.Id(om du har ett ID för varje medlem du har). Tal tar mindre plats + att En räknare alltid är unik.

Tack för ditt snabba svar!

Jag sitter på jobbet nu och kan inte testa, men det ser bra ut. Ska prova med ID:et och återkommer med resultat!