Como aceptar muchos carateres en un textbox

[Ecj]

Buen dia.

Estoy realizando un proyecto, en el que necesito mostrar en un texbox una gran cantidad de texto, puse un texbox con la propiedad multiline, pero el texto se me corta cuando los caracteres llegan a 255 y deja de mostrarme el resto del texto.

Que puedo hacer para solucionar este problema.

MUCHAS GRACIAS

[Ecj]

He estado mirando y el problema parece que no es del textbox sino de la manera como hago la consulta.

La realizo de las siguientes formas:

'RdcMas.sql = "Select Analisis,Accion,Recomendacion,Version from Historico where Periodo = '" & TFecha & "' and Codigo =" & Me.TCodigo & ""
'RdcMas.Refresh
'RdcMas.Resultset.MoveLast
'RdcMas.Resultset.MoveFirst

de esta manera usando un rdc

Dim qry As New rdoQuery
Dim rsv As rdoResultset
sql = "Select Analisis,Accion,Recomendacion,Version from Historico where Periodo = '" & TFecha & "' and Codigo =" & Me.TCodigo & ""
Set qry.ActiveConnection = RDOCONEXION
qry.sql = sql
Set rsv = qry.OpenResultset(rdOpenDynamic)

o de esta otra forma

En cualquiera de los dos casos asigno a una variable String el resultado de la consulta:

Analisis = rsv("Analisis")

Pero al sacar un mensaje sobre el contenido de esta, hallo con sorpresa que el contenido no esta completo.

Que debo hacer o como debo realizar la consulta para no perder la integridad en los datos, porque solo me ocurre con el campo analisis, un campo tipo Memo en la bd