求救！！用vb向oracle中BLOB字段导入数据奇怪错误！

Open ImageFile For Binary Access Read As SourceFile
  FileLength = LOF(SourceFile)
  If FileLength = 0 Then
    Close SourceFile
    MsgBox DiskFile & "无内容或不存在!"
  Else
    NumBlocks = FileLength \ BlockSize '得到数据块的个数
    LeftOver = FileLength Mod BlockSize '得到剩余字节数
    rs!BlobFile.Value = Null  '首先将要写入图像数据的字段清空
    ReDim ByteData(BlockSize) '重新定义数据块的大小
    For i = 1 To NumBlocks
      Get SourceFile, , ByteData() '读到内存块中
      rs!BlobFile.AppendChunk ByteData()  '写入图像数据
    Next i
    ReDim ByteData(LeftOver) '重新定义数据块的大小
    Get SourceFile, , ByteData() '读到内存块中
    rs!BlobFile.AppendChunk ByteData()  '写入剩余的图像数据
    Close SourceFile '关闭源文件
    rs.Update '将记录数据写入到数据库中
  End If
导入100多m的数据没有问题，但导300m以上的时候，不是提示“out of memory”，就是提示“存储空间不足”。oralce里的表空间容量也够，这到底是什么问题啊，谢谢大家了