Dim strConn As String
    Dim objConn As OracleConnection
    Dim objComm As OracleCommand    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        strConn = "User Id=scott;Password=tiger;Data Source=oracle"
    End Sub    Public Sub InsertDeptLOGO(ByVal intDeptNO As Integer, ByVal bytsLogo As Byte())
        Dim strSql As String = "INSERT INTO DEPT_LOGO T (DEPTNO, LOGO) VALUES (:PI_LOGO, :PI_DEPTNO)"        Try
            objConn = New OracleConnection(strConn)
            objComm = New OracleCommand(strSql, objConn)
            objComm.Parameters.Add("PI_LOGO", OracleType.Blob).Value = bytsLogo
            objComm.Parameters.Add("PI_DEPTNO", OracleType.Number).Value = intDeptNO
            objConn.Open()
            objComm.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If Not objConn Is Nothing Then
                objConn.Close()
            End If
        End Try
    End Sub