مشكلة كود استيراد ملف اكسيل يقراء لغة واحدة فقط

كود :

    ofd.Filter = "Excel 2007|*.xlsx|Excel 2003|*.xls"

        If ofd.ShowDialog = System.Windows.Forms.DialogResult.OK Then                        'Windows.Forms.DialogResult.OK Then

            dvg_items.DataSource = Nothing

            dvg_items.Columns.Clear()

            Dim path As String = ofd.FileName

            Dim conn As New OleDb.OleDbConnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & path & "; EXTENDED PROPERTIES=EXCEL 12.0;")

            Dim ds As New DataSet

            'Dim da As New OleDbDataAdapter("SELECT * FROM [ورقة1$]", conn)

            'da.Fill(ds, "[ورقة1$]")

            'dvg_items.DataSource = ds.Tables("[ورقة1$]")



            Dim da As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", conn)

            da.Fill(ds, "[Sheet1$]")

            dvg_items.DataSource = ds.Tables("[Sheet1$]")

        Else

            End

        End If

كود :

   Private Function sheetname(path)

        Dim xl As New Excel.Application

        '  Dim xlsheet As Excel.Worksheet

        Dim xlwbook As Excel.Workbook



        xlwbook = xl.Workbooks.Open(path)

        ' xlsheet = xlwbook.Sheets.Item(1)

        For Each sht In xlwbook.Worksheets

            ListBox1.Items.Add(sht.Name)

        Next



        xl.ActiveWorkbook.Close(False, path)

        xl.Quit()



        xlwbook = Nothing

        xl = Nothing

    End Function

كود :

   Dim sheet As String

         

            If ListBox1.Items.Item(0).ToString.Contains("ورقة") = True Then

                sheet = "[ورقة1$]"



            ElseIf ListBox1.Items.Item(0).ToString.Contains("Sheet") = True Then

                sheet = "[Sheet1$]"

            End If

كود :

   Dim ofd As New OpenFileDialog

        ofd.Filter = "Excel 2007|*.xlsx|Excel 2003|*.xls"

        If ofd.ShowDialog = System.Windows.Forms.DialogResult.OK Then                        'Windows.Forms.DialogResult.OK Then

            dvg_items.DataSource = Nothing

            dvg_items.Columns.Clear()

            Dim path As String = ofd.FileName

            Dim conn As New OleDb.OleDbConnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & path & "; EXTENDED PROPERTIES=EXCEL 12.0;")

            Dim ds As New DataSet



            sheetname(ofd.FileName)



     

            Dim sheet As String

            ListBox1.SelectedIndex = 0

            If ListBox1.Items.Item(0).ToString.Contains("ورقة") = True Then

                sheet = "[ورقة1$]"



            ElseIf ListBox1.Items.Item(0).ToString.Contains("Sheet") = True Then

                sheet = "[Sheet1$]"

            End If







            If sheet = "[ورقة1$]" Then

                Dim da As New OleDbDataAdapter("SELECT * FROM " & sheet, conn)

                da.Fill(ds, sheet)

                dvg_items.DataSource = ds.Tables(sheet)

            ElseIf sheet = "[Sheet1$]" Then

                Dim da As New OleDbDataAdapter("SELECT * FROM " & sheet, conn)

                da.Fill(ds, sheet)

                dvg_items.DataSource = ds.Tables(sheet)



            End If

                  Else

            End

        End If