cómo elegir un valor del select x defecto al cargar página según valor recuperado??

[Tarecito]

lo tengo asi pero no me selecciona nada, la variable si está rcuperando el valor del rs

<SELECT size=1 name=cod_rem>
<% Dim sql, rs, strselected
sql = "Select cod_rem, detalle_rem from TipoRemitente order by detalle_rem"
Set rs = conexion.Execute(sql)
If Not(rs.EOF) then
rs.MoveFirst
Response.Write "<option value=' ' selected></option>" & vbcrlf
Do While Not(rs.EOF)
if rs("cod_rem") = r then
strselected = "selected"
else
strselected = ""
end if
Response.Write "<option value='"& rs("detalle_rem") &"' &"'" & strSelected & ">"& rs("detalle_rem") &"</option>" & vbcrlf
rs.MoveNext
Loop
End If
rs.close
%>
</SELECT>