ผมติดตรงอ่านไฟล์ CSV ช่วยหน่อยครับ ตรง Do Until StrWer.EndOfStream ของผมมันขึ้น is not member of system.io.streamreader ครับ

 Dim objConn As New OleDbConnection
        Dim dtAdapter As OleDbDataAdapter
        Dim dt As New DataTable
        Dim dr As DataRow

        'Dim strConnString As String
        'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strPath) & _
        '";Extended Properties='TEXT;HDR=Yes;FMT=Delimited;Format=Delimited(,)'"

        'objConn = New OleDbConnection(strConnString)
        'objConn.Open()

        'Dim strSQL As String
        'strSQL = "SELECT * FROM " & strFilesName

        'dtAdapter = New OleDbDataAdapter(strSQL, objConn)
        'dtAdapter.Fill(dt)

        'dtAdapter = Nothing

        'objConn.Close()
        'objConn = Nothing

        'Return dt '*** Return DataTable ***'
        '*** Column ***'
        dt.Columns.Add("Employee_Code")
        dt.Columns.Add("Department_code")
        dt.Columns.Add("Location")
        dt.Columns.Add("Title_TH")
        dt.Columns.Add("Name_TH")
        dt.Columns.Add("Surname_TH")
        dt.Columns.Add("Title_EN")
        dt.Columns.Add("Name_EN")
        dt.Columns.Add("Surname_EN")
        Dim StrWer As New System.IO.StreamReader(Server.MapPath(strPath & strFilesName), True)
        Dim strLine As String
        'StrWer = New StreamReader(Server.MapPath(strPath & strFilesName), Encoding.Default)
Do Until StrWer.EndOfStream <=== 'ติดตรงนี้ครับ มันขึ้น 'is not member of system.io.streamreader
            strLine = StrWer.ReadLine()
            If Trim(strLine) <> "" Then
                '*** Rows ***'
                If Mid(strLine, 1, 6) <> "Serial" Then
                    dr = dt.NewRow
                    dr("Employee_Code") = Split(strLine, ",")(0)
                    dr("Department_code") = Split(strLine, ",")(1)
                    dr("Location") = Split(strLine, ",")(2)
                    dr("Title_TH") = Split(strLine, ",")(3)
                    dr("Name_TH") = Split(strLine, ",")(4)
                    dr("Surname_TH") = Split(strLine, ",")(5)
                    dr("Title_EN") = Split(strLine, ",")(6)
                    dr("Name_EN") = Split(strLine, ",")(7)
                    dr("Surname_EN") = Split(strLine, ",")(8)
                    dt.Rows.Add(dr)
                End If

            End If
        Loop
        StrWer.Close()

        Return dt '*** Return DataTable ***'Code (VB.NET)