Import TextFile เข้า Datagridview แล้วฟอร์นภาษาไทยอ่านไม่ออก

        Dim dt As New DataTable
        Dim dr As DataRow
        dt.Clear()
        '*** Column ***'
        dt.Columns.Add("PID")
        dt.Columns.Add("TName")
        dt.Columns.Add("FNAME")
        dt.Columns.Add("LNAME")
        dt.Columns.Add("type")
        dt.Columns.Add("BIRTHDATE")
        dt.Columns.Add("Main_code")
        dt.Columns.Add("Main_name")
        dt.Columns.Add("Sub_name")
        dt.Columns.Add("ADD1")
        dt.Columns.Add("Moo")
        dt.Columns.Add("สิทธิเดือนที่แล้ว")
        dt.Columns.Add("หน่วยบริการเดิม")
        Dim StrWer As StreamReader
        Dim readLine As String
        StrWer = File.OpenText(txtPath.Text)
        Do Until StrWer.EndOfStream
            readLine = StrWer.ReadLine()
            '*** Rows ***'
            dr = dt.NewRow
            dr("PID") = Split(readLine, ";")(0)
            dr("TName") = Split(readLine, ";")(1)
            dr("FNAME") = Split(readLine, ";")(2)
            dr("LNAME") = Split(readLine, ";")(3)
            dr("type") = Split(readLine, ";")(4)
            dr("BIRTHDATE") = Split(readLine, ";")(5)
            dr("Main_code") = Split(readLine, ";")(6)
            dr("Main_name") = Split(readLine, ";")(7)
            dr("Sub_name") = Split(readLine, ";")(8)
            dr("ADD1") = Split(readLine, ";")(9)
            dr("Moo") = Split(readLine, ";")(10)
            dr("สิทธิเดือนที่แล้ว") = Split(readLine, ";")(11)
            dr("หน่วยบริการเดิม") = Split(readLine, ";")(12)
            dt.Rows.Add(dr)
        Loop
        StrWer.Close()
        MyDataGrid.DataSource = dt