How to load and retrieve picture using vb and oracle

Private Function GetPic()     //to load picture into table
Dim filelen As Long
Dim numlock As Integer
Dim leftover As Long
Const blocksize = 100000
Dim pic As String
Dim bytedata() As Byte
Dim sfile As Integer
sql = "select PICS from student_record_database "   //empty field with no pictures
RES.Open sql, CON, adOpenDynamic, adLockOptimistic
    sfile = App.Path & "/mypic/Book1.xls"            //error : type mismatch
        Open sfile For Binary Access Read As #1
            filelen = LOF(sfile)
    If filelen = 0 Then
        Close sfile
            MsgBox ("empty or not found")
    Else
        numlock = filelen / blocksize
            leftover = filelen Mod blocksize
        ReDim bytedata(leftover)
            Get sfile, , bytedata()
                RES(1).AppendChunk bytedata()
        ReDim bytedata(blocksize)
            For i = 1 To numlock
                Get sfile, , bytedata()
                    RES(1).AppendChunk bytedata()
            Next i
    RES.Update
       Close sfile
    End If
End Function

Private Function ShowPic()     //to retrieve picture from table 
Dim bytedata() As Byte
Dim file As String
Dim filelen As Long
Dim numlock As Integer
Dim leftover As Long
Const blocksize = 100000

file = App.Path & "\image1.jpeg"
        Open file For Binary As #1
numlock = filelen / blocksize
    leftover = filelen Mod blocksize
bytedata() = RES(1).GetChunk(leftover)
Put file, , bytedata()
    For i = 1 To numlock
        bytedata() = RES(1).GetChunk(blocksize)
        Put file, , bytedata()
    Next i
Close file
End Function

Here is my full code to first insert pictures using vb in oracle table database and then display those pictures in picture box of vb application as per there records.......
But it is showing errors for path and picture is not shown in picture box
Please help...............

Tags: Visual Basic 6, Oracle