inserting images from PictureBox in to the oracle database

[Harshadcode]

Hi,
This is HARSHAD,
I am creating a project in VB.NET
for managing details like photos of criminals.
but i am facing problems in converting a image in to filestream so that it can be inserted in to the oracle 10g database using BLOB variable type.
if you can help me it will be very helpful..

This is my code:
---------------------------------------------------------------------

Imports System
Imports System.IO
Imports System.Windows.Forms
Imports System.Data                 ' VB.NET
Imports System.Drawing.Imaging
Imports System.Collections
Imports System.ComponentModel
'Imports System.Data.OracleClient    ' Oracle Client
Imports Oracle.DataAccess.Client
--------------------------------------------------------------------------------------------------------------
Private Sub Insert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 
        Dim imagename As String
        Dim conn As OracleConnection = New OracleConnection
        ' Specify the connect string
        conn.ConnectionString = "User Id=system;Password=tiger;Data Source=;"
        ' Create the OracleCommand object
        Dim cmd As OracleCommand = New OracleCommand
        Dim bsize As Integer
        Try
            ' Open the connection
            conn.Open()
            MessageBox.Show("Connection to Oracle database established!")
            'Console.WriteLine(" ")
 
            If (imagename <> "") Then
                MessageBox.Show("Please load the Image")
            Else
                Try
                    Dim fls As System.IO.FileStream(imagename,IO.FileMode.Open, IO.FileAccess.Read)
                    'fls = New FileStream(imagename, FileMode.Open, FileAccess.Read, FileShare.Read, bsize, True)
                    'fls = New FileStream(imagename, FileMode.Open, FileAccess.Read)
                    Dim blob(fls.Length - 1) As Byte
                    fls.Position = 0
                    fls.Read(blob, 0, System.Convert.ToInt32(fls.Length))
                    fls.Close()
                    Dim blobParameter As OracleParameter = New OracleParameter
                    blobParameter.OracleDbType = OracleDbType.Blob
                    blobParameter.ParameterName = "BlobParameter"
                    blobParameter.Value = blob
                    Dim cmdQuery = "INSERT into ARREST values('" & TextBox1.Text & "','" & TextBox4.Text & "','" & TextBox6.Text & "','" & TextBox8.Text & "','" & TextBox11.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & TextBox12.Text & "','" & TextBox13.Text & "','" & ComboBox4.Text & "','" & ComboBox5.Text & "','" & ComboBox10.Text & "','" & TextBox15.Text & "','" & TextBox18.Text & "','" & TextBox19.Text & "','" & TextBox23.Text & "','" & TextBox25.Text & "','" & TextBox26.Text & "','" & TextBox27.Text & "','" & TextBox28.Text & "',:BlobParameter,:BlobParameter ,'" & TextBox7.Text & "','" & ComboBox6.Text & "','" & TextBox10.Text & "','" & ComboBox7.Text & "','" & TextBox39.Text & "','" & TextBox54.Text & "','" & TextBox41.Text & "','" & TextBox43.Text & "','" & TextBox44.Text & "','" & TextBox45.Text & "','" & ComboBox14.Text & "','" & ListBox1.Text & "',)"
                    ' Create the OracleCommand object
                    cmd = New OracleCommand(cmdQuery)
                    cmd.Connection = conn
                    cmd.CommandType = CommandType.Text
                    cmd.Parameters.Add(blobParameter)
                    cmd.ExecuteNonQuery()
                    MessageBox.Show("added to blob field")
                    cmd.Dispose()
                    conn.Close()
                    conn.Dispose()
                Catch ex As Exception
                    MessageBox.Show(ex.StackTrace)
                End Try
            End If
        Catch ex As Exception
            MessageBox.Show(ex.StackTrace)
        End Try
 
   End Sub