Debes obtener el valor que deseas y compararla con cada valor de opción del <select>:
Código:
Dim strVar
strVar = "valor_de_BD"
Código:
<select name="NombreDeSelect">
<option value="Valor1" <% If strVar = "Valor1" Then Response.Write " selected=""selected""">Opcion 1</option>
<option value="Valor2" <% If strVar = "Valor2" Then Response.Write " selected=""selected""">Opcion 2</option>
<option value="Valor3" <% If strVar = "Valor3" Then Response.Write " selected=""selected""">Opcion 3</option>
...
</select>
Espero que te sirva.
Saludos.