How add data to excel without overwrite the data or the design in it

[samchuah911]

I using visual basic 2010 and I want to extract the data I had insert in the exe.file to excel without overwrite the data or design of it. Below is the code I use

Dim oExcel As Object
            Dim oBook As Object
            Dim oSheet As Object
            Dim sNWind As String
            Dim conn As New ADODB.Connection
            Dim rs As ADODB.Recordset
            sNWind = _
               "D:\Book1.xls"
            conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
               sNWind & ";")
            conn.CursorLocation = adUseClient()
            rs = conn.Execute("Orders", , adCmdTable)
 
            'Start a new workbook in Excel
            oExcel = CreateObject("Excel.Application")
            oBook = oExcel.Workbooks.Add
 
            oSheet = oBook.Worksheets(1)
 
            oSheet.Range("F1").Value = "MOQ:"
            oSheet.Range("G1").Value = t
            oSheet.Range("I1").Value = Format(((Val(i) * Val(j) * Val(k) * ab + Val(a) * Val(b) * Val(c) * aa) * (Val(ag) + Val(ah) + 0.15 + 0.3) + u + u * 0.12) + ((Val(i) * Val(j) * Val(k) * ab + Val(a) * Val(b) * Val(c) * aa) * (Val(ag) + Val(ah) + 0.15 + 0.3) + u + u * 0.12) * 5 / 100 + (((Val(i) * Val(j) * Val(k) * ab + Val(a) * Val(b) * Val(c) * aa) * (Val(ag) + Val(ah) + 0.15 + 0.3) + u + u * 0.12) + ((Val(i) * Val(j) * Val(k) * ab + Val(a) * Val(b) * Val(c) * aa) * (Val(ag) + Val(ah) + 0.15 + 0.3) + u + u * 0.12) * 5 / 100) * 10 / 100, "0.0000")
            oSheet.Range("H1").Value = "Price:"
            If f = "Sheet in roll" Then
                oSheet.Range("I2").Value = c & "mm " & "x" & (a - 30) / Val(cc) & "mm " & "x" & b & "meter  " & ComboBox5.SelectedItem & "UP"
                oSheet.Range("E4").Value = "L(m)"
 
            Else
                oSheet.Range("E4").Value = "L(mm)"
 
                oSheet.Range("I2").Value = c & "mm " & "x" & (a - 30) / Val(cc) & "mm " & "x" & b & "mm   " & ComboBox5.SelectedItem & "UP"
            End If
            oSheet.Range("F2").Value = ComboBox1.SelectedItem & " colour " & f & " Bag   " & h
            oSheet.Range("B8").Value = "Process"
            oSheet.Range("H2").Value = "Size"
            oSheet.Range("A1").Value = "Company Name"
 
            oSheet.Range("C1").Value = TextBox1.Text
            oSheet.Range("A2").Value = "Sign By: "
            oSheet.Range("C2").Value = TextBox2.Text
            oSheet.Range("A3").Value = "No."
            oSheet.Range("B3").Value = "Particulars"
            oSheet.Range("C3").Value = "Dimension"
            oExcel.Quit()
 
 

Thanks in advance.
Waiting for your answer.