long row data vanishes when inserting large size of binaray/text data

Hello There

I am currenly doing some table data transfer.I read the data from one table
and crate a table with a given name and transfer data from the orginal table
to the target table .
this works fine until i met with a long row data field .
i can transer data from a long row field of my source table to my
detination table long row field but if the size is over 100 kb . my
destination long row field contains no data . but if i have to transfer 2kb
or 3kb of data then this works

following is how i have achive it .
i use ADO connction .
first i created a table exactly as same as source table
with following creat stmt . ( i execute this using vb6 sp5)

Private aTrgConn As New ADODB.connection
Private aCmdIns As New ADODB.Command
Private aCmdUpd As New ADODB.Command

aTrgConn.Open sConnStr

then i have created a table which consist of long row fields

This is my create stmt
CREATE TABLE PR_DATA_BLOCK_TAB (BLOB_ID NUMBER(26,12) not null, SEQ
NUMBER(26,12) not null, DATA LONG RAW null)


'set commant text using this command
aCmdIns.CommandText="INSERT INTO PR_DATA_BLOCK_TAB (BLOB_ID, SEQ, DATA)
values (?,?,?)"




'then i insert data using this command
For i = 0 To iFields
aCmdIns(i) = SetParameterValue(aCmdIns(i).Precision,
aCmdIns(i).Type, outputFields(1, i))
Next
aCmdIns.Execute , , adCmdText


Public Function SetParameterValue(Prec As Integer, dType As Integer, value
As Variant) As Variant
If IsEmpty(value) Or IsNull(value) Then
If Prec = 255 And dType <> adBoolean Then
SetParameterValue = ""
Else: SetParameterValue = Null
End If
Else: SetParameterValue = value
End If
End Function

Please help

thanks in advance
prashantha