Recolectar datos de bd access en combo

[ozk4r]

Dim tipogasto
Dim rs
set idgasto = request.Form("idgasto")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = Conn
SQL = "SELECT * FROM gastos WHERE idgasto = val('" + idgasto + "')"
rs.Open SQL, Conn, 1, 3
tipogasto = rs.fields.item("tipogasto")
dd = left(rs.fields.item("fecha"),2)
mm = mid(rs.fields.item("fecha"),4,2)
aa = right(rs.fields.item("fecha"),2)
observacion = rs.fields.item("observacion")
neto = rs.fields.item("neto")


<select name="tipogasto" id="tipogasto">
<option value="V">Vi&aacute;tico</option>
<option value="D">Diesel</option>
<option value="C">Cargadores</option>
<option value="S">Descargadores</option>
<option value="P">Peaje</option>
<option value="E">Estacionamiento</option>
</select>

Lo que deseo es que quede seleccionado el valor que recibo de la BD
ejemplo

<option value="E" selected>Estacionamiento</option> en caso que el resultado del recordset fuera "E"