ติดปัญหาการ เอาไฟล์ excel ไป import ใส่ Sql server ครับ

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
12.
"Data Source="D:\Project VB.net\DB\BPlusDATA.xls";Extended Properties=Excel 8.0;"

 Private Sub import()

        Dim OpenFile As String
        Dim i As Integer
        OpenFile = "D:\Project VB.net\DB\BPlusDATA.xlsx"

        '*** Create Excel.Application ***'
        Dim xlApp As New excel.Application
        Dim xlBook As excel.Workbook
        Dim xlSheet1 As excel.Worksheet
        xlBook = xlApp.Workbooks.Open(OpenFile)
        xlBook.Application.Visible = False
        xlSheet1 = xlBook.Worksheets(1)
        '*** Create DataTable ***'
        Dim dt As New System.Data.DataTable
        Dim dr As System.Data.DataRow
        '*** Column ***'
        dt.Columns.Add("DI_DATE")
        dt.Columns.Add("DI_REF")
        dt.Columns.Add("TRD_NM_PRC")
        dt.Columns.Add("TRD_QTY")
        dt.Columns.Add("TRD_G_SELL")
        dt.Columns.Add("TRD_B_SELL")
        dt.Columns.Add("TRD_TDSC_KEYINV")
        dt.Columns.Add("TRD_B_VAT")
        dt.Columns.Add("DT_PROPERTIES")
        dt.Columns.Add("SLMN_CODE")
        dt.Columns.Add("SLMN_NAME")
        i = 2
        Do While Not Trim(xlSheet1.Cells.Item(i, 1).Value) = ""
            '*** Rows ***'
            dr = dt.NewRow
            dr("DI_DATE") = xlSheet1.Cells.Item(i, 1).Value
            dr("DI_REF") = xlSheet1.Cells.Item(i, 2).Value
            dr("TRD_NM_PRC") = xlSheet1.Cells.Item(i, 3).Value
            dr("TRD_QTY") = xlSheet1.Cells.Item(i, 4).Value
            dr("TRD_G_SELL") = xlSheet1.Cells.Item(i, 5).Value
            dr("TRD_B_SELL") = xlSheet1.Cells.Item(i, 6).Value
            dr("TRD_TDSC_KEYINV") = xlSheet1.Cells.Item(i, 7).Value
            dr("TRD_B_VAT") = xlSheet1.Cells.Item(i, 8).Value
            dr("DT_PROPERTIES") = xlSheet1.Cells.Item(i, 9).Value
            dr("SLMN_CODE") = xlSheet1.Cells.Item(i, 10).Value
            dr("SLMN_NAME") = xlSheet1.Cells.Item(i, 11).Value
            dt.Rows.Add(dr)
            i = i + 1
        Loop
        'Me.DataGridView1.DataSource = dt
        xlApp.Application.Quit()
        xlApp.Quit()
        xlSheet1 = Nothing
        xlBook = Nothing
        xlApp = Nothing

        Dim connetionString As String
        Dim connection As SqlConnection
        Dim adapter As New SqlDataAdapter
        Dim sql As String
        connetionString = "Server=IT-04S\SQLEXPRESS;UID=TestVB;PASSWORD=11111;database=TestVB;Max Pool Size=400;Connect Timeout=600;"
        connection = New SqlConnection(connetionString)
        connection.Open()

        For i = 0 To dt.Rows.Count - 1
            sql = "insert into BplusData (DI_DATE,DI_REF,TRD_NM_PRC,TRD_QTY,TRD_G_SELL,TRD_B_SELL,TRD_TDSC_KEYINV,TRD_B_VAT,DT_PROPERTIES,SLMN_CODE,SLMN_NAME) values('" & dt.Rows(i)(0) & "','" & dt.Rows(i)(1) & "','" & dt.Rows(i)(2) & "','" & dt.Rows(i)(3) & "','" & dt.Rows(i)(4) & "','" & dt.Rows(i)(5) & "','" & dt.Rows(i)(6) & "','" & dt.Rows(i)(7) & "','" & dt.Rows(i)(8) & "','" & dt.Rows(i)(9) & "','" & dt.Rows(i)(10) & "')"
            adapter.InsertCommand = New SqlCommand(sql, connection)
            adapter.InsertCommand.ExecuteNonQuery()
        Next
        connection.Close()
    End Sub