CSV to Database Help!!

[heeroyu16]

Hi Guys, I'm having troubling with my application to get data from an excel file, save it to a CSV, and export it over to a DB.

First Problem, Excel doesn't seems to close after i convert xls to csv.

Second problem i need to concat the last two columns of the CSV file to obtain a timestamp of the data as of the xls.

This is my coding so far

Private Sub btnEnter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnter.Click
 
        Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet
        Dim xlformat As Excel.XlFileFormat = Excel.XlFileFormat.xlCSV
        Dim c As New CSV_TO_DATA_TABLE.CSV_CONVERT.CSV_TO_DATA_TABLE
        Dim dt As DataTable
 
        xlApp = CreateObject("Excel.Application")
        xlBook = xlApp.Workbooks.Open("C:\Program Files\STOCK TAKE SYSTEM\STS.XLS")
        xlBook.SaveAs("C:\Program Files\STOCK TAKE SYSTEM\STS.CSV", FileFormat:=xlformat)
        xlBook.Close()
        xlBook.Saved = True
        xlApp.Quit()
 
        Dim myDriver As New OleDb.OleDbConnection("Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=C:\Program Files\STOCK TAKE SYSTEM;Extensions=asc,csv,tab,txt;")
        Dim myConnection As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\STOCK TAKE SYSTEM;Extended Properties=""text;HDR=Yes;FMT=Delimited""")
        Dim insertData As New DataSet
        Dim mydatatable As DataTable
        Dim ds As DataSet
        Dim sql As String
 
        connectDB = New connection("SAMPLE", "", "")
        Dim myDataAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM [STS.CSV]", myConnection)
        ' ds = connectdb.updateRecord("insert into Sample.SRST_TEST ("
 
        Try
            myDataAdapter.Fill(insertData)
            DataGrid1.DataSource = insertData
 
        Catch Ex As Exception
            MessageBox.Show(Ex.Message)
        End Try
        'closes connection upon complete
        myConnection.Close()    
 
    End Sub

I'm suppose to make an application, non web based

Thanks in advance