Imports System.Globalization

        If System.IO.File.Exists("E:\Gewinntabelle.xls") Then
            Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
            Dim MyConnection As System.Data.OleDb.OleDbConnection
            MyConnection = New System.Data.OleDb.OleDbConnection( _
            "provider=Microsoft.Jet.OLEDB.4.0; " & _
            "data source=E:\Gewinntabelle.xls; " & _
            "Extended Properties=Excel 8.0;")
            MyCommand = New System.Data.OleDb.OleDbDataAdapter( _
            "select * from [Daten$]", MyConnection)
            Dim ds As System.Data.DataSet
            ds = New System.Data.DataSet
            Try
                MyCommand.Fill(ds)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            Finally
                MyConnection.Close()
            End Try
            ds.Tables(0).TableName = "MeineDaten"
            Me.Text = "Gewinntabelle"
            Dim dv As New DataView(ds.Tables(0))
            REM dv.Sort() = "" 
            Dim tempstr As String
            For Each col As DataColumn In dv.Table.Columns
                tempstr = tempstr + col.ColumnName + " DESC, "
            Next
            tempstr = tempstr.Substring(0, tempstr.Length - 2)
            dv.Sort() = tempstr
 
            Dim dgts As New DataGridTableStyle
 
            Dim myGridStyle As DataGridTableStyle = New DataGridTableStyle
            myGridStyle.DataGrid = Me.dg
            myGridStyle.MappingName = "MeineDaten"
 
            For Each dc As DataColumn In dv.Table.Columns()
                Dim myDgTbc As DataGridTextBoxColumn = New DataGridTextBoxColumn
                myDgTbc.MappingName = dc.ColumnName
                myDgTbc.HeaderText = "Zahlen  " + myDgTbc.MappingName
 
                If dc.ColumnName = "F3" Then
                    myDgTbc.Format() = "p"
                    Dim nfi As NumberFormatInfo = New CultureInfo( _
                      System.Threading.Thread.CurrentThread.CurrentCulture.ToSt_
                      ring(), False).NumberFormat
                    nfi.PercentDecimalDigits = 5
                    myDgTbc.FormatInfo = nfi
                End If
                myDgTbc.Alignment = HorizontalAlignment.Right
                myDgTbc.Width = 90.0
                myGridStyle.GridColumnStyles.Add(myDgTbc)
            Next
 
            dg.DataSource = dv.Table
            dg.TableStyles.Add(myGridStyle)
 
        End If