Avanzar-retroceder registro

[aupaneu]

Hola de nuevo.

He escrito lo siguiente para conectarme:

<%
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
Response.Write(result("Cod_persona"))
result.movenext()
Loop
cnn.close()
cnn = Nothing

%>

Pero resulta que en vez de mostrarme el contenido del campo Cod_persona, me muestra 15 veces (el número de registros que tiene la tabla) el mensaje

System.__Com

¿Alguien sabe como evitar esto y visualizar el contenido de los campos?

Gracias de nuevo