prueba con esto
<%
Set sel = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM mi_tabla "
sel.open sql, adoCon
%>
<form action="mi_pagina.asp" method="get" >
Nombre de la tabla
<select name="tabla">
<%
sel.movefirst
do while not sel.eof
%>
<option value="<%= sel("idtbl") %>"><%= sel("nom_tbll") %></option>
<%
sel.movenext
loop
set sel=nothing
%>