singulært brugernavn

jeg prøver at lave en ting der gør at man ikke kan oprette det samme brugernavn 2 gange, er der nogen der evt har et eksempel på hvordan? for det jeg har lavet virker nemlig ikke en flyvende fis !

<%@ Language=\"VBSCRIPT\" %>
<% Response.buffer = True %>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\\Inetpub\\db\\register.mdb\"
cSQL = \"SELECT * FROM brugere\"
set rs = Conn.Execute(cSQL)
Do While not rs.EOF
If Request.Form(\"brugernavn\") = rs(\"brugernavn\") Then
response.write \"brugernavnet er optaget\"
rs.movenext
loop

\'Else
SQL = \"INSERT INTO brugere (brugernavn, kodeord, niveau, navn, tlfnr, email) VALUES (\'\" & Request.Form(\"brugernavn\") & \"\',\'\" & Request.Form(\"kodeord\")& \"\',\'\" & Request.Form(\"niveau\") & \"\',\'\" & Request.Form(\"navn\") & \"\',\'\" & Request.Form(\"tlfnr\") & \"\',\'\" & Request.Form(\"email\") & \"\')\"

Conn.Execute(SQL)
Conn.Close()
Set Conn = nothing
test = Request.Form(\"brugernavn\")
%>
<HTML>
<head>
<title>opret bruger</title>

<link rel=\"stylesheet\" href=\"register.css\">

</head>
<BODY  bgcolor=\"#7795A5\" class=\"text\">
<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\">
<tr>
<td bgcolor=\"#0472AA\" class=\"text\">
<font size=\"1\"><b>Brugeren <font color=\"red\"><%=test %></font> er nu oprettet... Klik <a href=\"liste.asp\">her</a><br>for at se en liste over brugere og kunder ! </b></font>
</td></tr>

</table>
</BODY>
</HTML>
<%
\'End If
%>