Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        If System.IO.File.Exists("E:\test.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:\test.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
 
            Dim dv As New DataView(ds.Tables(0))
            dv.Sort() = ""
 
            Dim tempstr As String
 
            For Each col As DataColumn In dv.Table.Columns
                tempstr = tempstr + col.ColumnName + ", "
            Next
            tempstr = tempstr.Substring(0, tempstr.Length - 2) + " DESC"
            dv.Sort() = tempstr
            dg.DataSource = dv
 
        End If
 
    End Sub