Excel 2007 - VB

System.Data
 System.Data.OracleClient
 System.Data.OracleClient.OracleDataReader
 System.Data.OracleClient.OracleParameterCollection
 Excel

  AnkData

      Button1_Click( sender  System.,  e  System.EventArgs)  Button1.Click

         app  Excel.Application
         wb  Excel.Workbook
         ws  Excel.Worksheet
        wb = app.Workbooks.Add
        ws = wb.Worksheets()
      
         commIMEI  OracleCommand =  OracleCommand( & _
 & _
 & _
 & _
, conn)
        commIMEI.CommandType = CommandType.Text

         im, ps, pe   OracleClient.OracleParameter
        im.ParameterName = 
        im.Direction = ParameterDirection.
        im.OracleType = OracleType.Number
        im.Value = TextBox1.Text
        commIMEI.Parameters.Add(im)

        ps.ParameterName = 
        ps.Direction = ParameterDirection.
        ps.OracleType = OracleType.
        ps.Value = DTP1.Text
        commIMEI.Parameters.Add(ps)

        pe.ParameterName = 
        pe.Direction = ParameterDirection.
        pe.OracleType = OracleType.
        pe.Value = DTP2.Text
        commIMEI.Parameters.Add(pe)

         dr  OracleDataReader
        dr = commIMEI.ExecuteReader

        ws.Cells(, ).value =  + im.Value +  + ps.Value +  + pe.Value
        ws.Cells(, ).value = 
        ws.Cells(, ).value = 
        ws.Cells(, ).value = 
        ws.Cells(, ).value = 
        ws.Cells(, ).value = 

         ws
            .Range().Font.Bold = True
            .Range(, ).ColumnWidth = 
            .Range(, ).Font.Bold = True

         pl, i  
        i = 
         dr.HasRows 
              dr.Read()
                ws.Cells(i, ).value.NumberFormat = 
                ws.Cells(i, ).value = dr()
                 pl <> dr() 
                    ws.Cells(i, ).value = dr()
                    pl = dr()
                 
                ws.Cells(i, ).value = dr()
                ws.Cells(i, ).value.NumberFormat = 
                ws.Cells(i, ).value = dr()
                ws.Cells(i, ).value.NumberFormat = 
                ws.Cells(i, ).value = dr()
                i = i + 
            
         : ws.Cells(i, ).value =  + im.Value + 

        ws.Range(ws.Cells(, ), ws.Cells(i, )).Font.Bold = True
        dr.()
        app.Visible = True