Oracle Excute

  
 If CRUD = "I" Then
            Try
                Dim BamCommand As New OracleCommand(SQLCommandText, BamDataBase)

                Dim Excuted As Integer = BamCommand.ExecuteNonQuery()
                If Excuted = 1 Then
                    WriteToStatusBar("정상적으로 등록되었습니다", MdiParent)
                End If
            Catch E As Exception
                OracleErrorMessage(E)
            End Try
        Else
            Dim BamCommand As New OracleCommand(SQLCommandText, BamDataBase)
            Try
                Dim myReader As OracleDataReader
                myReader = BamCommand.ExecuteReader()
                SqlCommand_Result(myReader, CRUD)
                myReader.Close()

            Catch E As Exception
                OracleErrorMessage(E)
            End Try
        End If