Begrænsning i udtræk fra database

<% telefonnummer = Request.QueryString("telefonnummer")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application( "DBPATH" )
sql = "SELECT * FROM [Forbrug] WHERE RefNr = '" & telefonnummer & "'"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, conn, 3,3%>

<% if rs.eof then
else
rs.MoveFirst
do while not rs.EOF %>
<%= rs.Fields("Bruger") %>
<% rs.MoveNext
loop
end if %>

Ovenstående giver mig følgende:
999999
999999
1234

Jeg vil gerne at hver bruger, rs.Fields("Bruger"), kun vises en gang.