Cargar datos de una Base de Datos en una select(listbox)

[aupaneu]

Hola.

He descubierto una forma de hacerlo desde el código de ASP:

<select style="width: 200px; height: 120px;" id="segundo" name="segundo" multiple="multiple">
<%
Dim cnn = Server.CreateObject("ADODB.Connection")
Dim result
cnn.open("PROVIDER=SQLOLEDB;DATA SOURCE=PC-DESARROLLO4;UID=sa;DATABASE=Proyecto1")

Dim sql = "SELECT * FROM TPersona"

result = cnn.Execute(sql)

result.movefirst()
'Recorre todas las filas del resultado
Do While Not result.EOF
'Imprimimos los contenidos del listbox

'AQUI ME DA EL ERROR
Response.Write("<option value='" & result("Cod_persona") & "'>" & result("Des_persona") & "</option>")


result.movenext()
Loop
cnn.close()
cnn = Nothing

%>
</select>

Como veis, donde he puesto "aqui me da error" me da el siguiente error:

El operador '&' no está definido para cadena "<option value='" ni para tipo 'Field'

¿Alguien sabe porque?

GRACIAS