ช่วยหน่อยครับ asp.net กับการ import csv ไฟล์ครับ คือผมทำตามนี้แล้วอ่ะครับ

 Protected Sub Btnimp_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btnimp.Click
        Dim CurrentFileName As String
        Dim CurrentPath As String
        Dim dt1 As String
        Dim dt2 As String

        CurrentFileName = myFile1.FileName
        If (Path.GetExtension(CurrentFileName).ToLower <> ".csv") Then
            ClientScript.RegisterStartupScript(Me.GetType(), "ShowAlert", ShowAlert("Error : Please Insert Excel File(.csv)"))
            Exit Sub
        End If
        If Not IsNothing(myFile1.PostedFile) Then

            Dim UlFileName As String
            Dim i As Integer

            UlFileName = "Upload/" & System.IO.Path.GetFileName(myFile1.ToString)

            '*** Save Images ***'
            myFile1.PostedFile.SaveAs(Server.MapPath(UlFileName))

        End If


        Dim strPath As String = "csv/"
        Dim dt As New System.Data.DataTable

        If Me.myFile1.HasFile Then
            Me.myFile1.SaveAs(Server.MapPath(strPath & myFile1.FileName))

            '*** Read CSV to DataTable ***'          
            dt = CsvCreateDataTable(strPath, Trim(myFile1.FileName))

            '*** Insert to Database ***'            
            InsertToDatabase(dt)
        End If
    End Sub

  Function CsvCreateDataTable(ByVal strPath, ByVal strFilesName) As DataTable

        Dim objConn As New OleDbConnection
        Dim dtAdapter As OleDbDataAdapter
        Dim dt As New DataTable
        Dim dr As System.Data.DataRow
        Dim i As Integer
        Dim strConnString As String


        '*** Column ***'
        dt.Columns.Add("Serial")
        dt.Columns.Add("Model")
        dt.Columns.Add("Name")
        dt.Columns.Add("User")
        dt.Columns.Add("Type")
        dt.Columns.Add("EMPLOYEEID")
        dt.Columns.Add("DEPTCODE")
        dt.Columns.Add("DEPTNAME")
        dt.Columns.Add("TEL")
        dt.Columns.Add("INVOICEDATE")
        dt.Columns.Add("EXPIRE")
        dt.Columns.Add("Brand")
        dt.Columns.Add("Mail")
        dt.Columns.Add("Fac")
        dt.Columns.Add("Location")
        dt.Columns.Add("Team")
        dt.Columns.Add("Vendor_code")
        dt.Columns.Add("Vendor_name")

        Dim StrWer As StreamReader
        Dim strLine As String
        StrWer = File.OpenText(Server.MapPath(strPath & strFilesName))
        Do Until StrWer.EndOfStream
            strLine = StrWer.ReadLine()
            If Trim(strLine) <> "" Then
                '*** Rows ***'
                If Mid(strLine, 1, 6) <> "Serial" Then
                    dr = dt.NewRow
                    dr("Serial") = Split(strLine, ",")(0)
                    dr("Model") = Split(strLine, ",")(1)
                    dr("Name") = Split(strLine, ",")(2)
                    dr("User") = Split(strLine, ",")(3)
                    dr("Type") = Split(strLine, ",")(4)
                    dr("EMPLOYEEID") = Split(strLine, ",")(5)
                    dr("DEPTCODE") = Split(strLine, ",")(6)
                    dr("DEPTNAME") = Split(strLine, ",")(7)
                    dr("TEL") = Split(strLine, ",")(8)
                    dr("INVOICEDATE") = Split(strLine, ",")(9)
                    dr("EXPIRE") = Split(strLine, ",")(10)
                    dr("Brand") = Split(strLine, ",")(11)
                    dr("Mail") = Split(strLine, ",")(12)
                    dr("Fac") = Split(strLine, ",")(13)
                    dr("Location") = Split(strLine, ",")(14)
                    dr("Team") = Split(strLine, ",")(15)
                    dr("Vendor_code") = Split(strLine, ",")(16)
                    dr("Vendor_name") = Split(strLine, ",")(17)
                    dt.Rows.Add(dr)
                End If

            End If
        Loop
        StrWer.Close()

        Return dt '*** Return DataTable ***