Imports System.data.SqlClient   'KOMMT auf 1. linie des codes
 
 
            Dim ds as new dataset
            Dim myData As OleDbDataAdapter
            Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & path & ";" & _
            "Extended Properties=Excel 8.0;"
 
            'WORKSHEETNAME ist name des Worksheets (default Sheet1)
            dim WORKSHEETNAME as string = "Sheet1"
            myData = New OleDbDataAdapter("SELECT  * FROM [" & WORKSHEETNAME & _
              "$]", strConn)
 
            myData.Fill(ds)
 
            datagrid1.datasource = ds.tables(0)