Tuncated memo field in ADO recordset

Good Morning,
  I am pulling records from a table in an Oracle database where the last field being pulled is a memo field. The field is simply being truncated around 2057 characters. I thought at first it was a limitation to my variable I was placing the text from the memo field into however my code goes on to continue to append text over 2100 charcters to the varable in code. So I am pretty sure it is getting truncated in the recordset.

Here is an example of what I am attempting to do:

  Dim rstPublicViews As New ADODB.Recordset
  Dim strsql as String
  Dim vrtText as Variant  <-- I have tried String also
 
  OpenDBConnections  <-- this functions opens my database connections setting the public connection object conn1

  strsql = "SELECT OWNER, VIEW_NAME, TEXT FROM ALL_VIEWS WHERE VIEW_NAME='PVSIGNOFF'"
  rstPublicViews.Open strsql, conn1, adOpenKeyset, adLockReadOnly

  vrtText  = rstPublicViews("TEXT")  <-- I have also tried vrtText  = rstPublicViews("TEXT").Value

  The vrText is truncated When I do a Len(vrtText) /or/ Len(rstPublicViews("TEXT")) the value is always: 2054

  The DefinedSize Property returns: 2147483647
  The ActualSize Property retuens: 2054

  I have tried various methods using GetChunk with the same results... I am beating my head against the desk this morning. Any help would greatly apperciated.

Thanks in advance for your time & help,
Jeff