no veo el ciclo para mostrar todos los datos... deverias hacer un do while... eria algo asi:
Código:
<%
Do While Not Tabla.Eof
%>
<p><select size="1" name="D1" type="text" value="<%=tabla.Fields("usuario")%>"> </select><input type="submit" value="Enviar" name="B1"><input type="reset" value="Restablecer" name="B2"></p>
<%
Tabla.MoveNext
Loop
%>
Espero te sirva... saludos