Problema con comillas

[Adler]

Prueba esta función

Código:

Function Cortar (str, longitud)
' Corta una cadena 'str' a la longitud especificada. Corta por la izda
if Len(str) => longitud then
	Cortar=Left(str, longitud)&"[...]"
else
	Cortar=str
end if

End Function ' Cortar

luego la sacas

Código:

Cortar(RS("descripcion"),100)

Suerte