Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        DataGrid1.DataSource = DTabTextOleDb( _
        "D:\Projekte\VB.Net\DockManager\test.xls", "select * from [Tabelle1$]")
    End Sub
    Function DTabTextOleDb(ByVal strTextPath As String, _
    ByVal strSQL As String) As DataTable
        Dim cnn As New OleDbConnection
        Dim cmd1 As New OleDbCommand
        Dim dadp As New OleDbDataAdapter
        Dim dtbl As New DataTable
        With cnn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = "provider=microsoft.jet.oledb.4.0;"
            .ConnectionString &= "data source=" & strTextPath & ";"
            .ConnectionString &= "Extended Properties = ""Excel 8.0"";"
            .Open()
        End With
        With cmd1
            .Connection = cnn
            .CommandType = CommandType.Text
            .CommandText = strSQL
        End With
        With dadp
            .SelectCommand = cmd1
            .Fill(dtbl)
        End With
        Return (dtbl)
    End Function