mostrar registro tipo memo en interbase.

[lexus]

yo la monte asi:

Function Obtenir_Memo(campo)
'No olvidar situar en el select el campo Memo (ntext, image, text) el ultimo campo.
Dim vChunk
vChunk = campo.GetChunk(4000)
Obtenir_Memo = vChunk
Do Until IsNull(vChunk) = true
vChunk = campo.GetChunk(4000)
Obtenir_Memo = Obtenir_Memo & vChunk
Loop
END Function


y dentro del ciclo ke muestra cada campo memo la mando a lllamar asi
Obtenir_Memo rs("NOTAS")

y me sale un error



Error de Microsoft VBScript en tiempo de ejecuciónerror '800a000d'
No coinciden los tipos /sms/eventos.asp, line 12


donde la linea 12 es esta Obtenir_Memo = Obtenir_Memo & vChunk