oracle - appendchunk と getchunk メソッドを処理するには?

Question

 Private Function ShowPic()
 Dim bytedata() As Byte
 Dim destfile As Integer
 Dim file As String
 Dim filelen As Long
 Dim numlock As Double
 Dim leftover As Long
 Const blocksize = 100000

 file = App.Path & "\image1.jpeg"

   destfile = FreeFile
   Open file For Binary Access Write As destfile

 filelen = RES(0).ActualSize
        numlock = filelen / blocksize
            leftover = filelen Mod blocksize

   bytedata() = RES(0).GetChunk(leftover)
        Put destfile, , bytedata()
 For i = 1 To numlock
      bytedata() = RES(0).GetChunk(blocksize)
        Put destfile, , bytedata()
 Next i

Close destfile
Picture1.Picture = LoadPicture(App.Path & "\image1.jpeg")
RES.Close
End Function

これは、データベースに保存されている画像を取得して画像ボックスに表示するための私のコードです。コードエラーを実行するたびに、次のように発生します。Item cannot found in corresponding ordinal or name