Dim oleConn As OleDbConnection
        Dim oleDataAdapt As OleDbDataAdapter
        Dim dtExcel As DataTable
        Dim dsExcel As DataSet
        Dim sSql As String
 
        Cursor.Current = Cursors.WaitCursor
        Cursor.Current.Show()
 
        Try
            ' Signal Parameter (direkt aus Excel-MSL) lesen
            Dim dr As DataRow
            Dim strCon1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
              "Source="
            Dim strCon2 As String = "; Jet OLEDB:Engine Type=5;Extended" & _
            "Properties=Excel 8.0;"
            Dim strConn As String = strCon1 & _
            "L:\AIDA_Daten\MMD_Daten\Messstellenlisten\TestPb22.xls" & strCon2
            oleConn = New OleDbConnection(strConn)
            oleConn.Open()
            Dim dt As DataTable = oleConn.GetOleDbSchemaTable( _
              OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, _
              "TABLE"})
            'oleConn.Close()
            dr = dt.Rows(0)
            Dim ws As String = dr("Table_Name").ToString    ' worksheet
            If ws.EndsWith("$'") Then
                ws = ws.Substring(0, ws.Length - 2)
            End If
            If ws.EndsWith("$") Then
                ws = ws.Substring(0, ws.Length - 1)
            End If
            If ws.StartsWith("'") Then
                ws = ws.Substring(1, ws.Length - 1)
            End If
 
 
            Dim sql As String = " SELECT * FROM [" & ws & "$] order by " & _
              iCommonCols(0)
            Dim oleDA As OleDbDataAdapter = New OleDbDataAdapter(sql, strConn)
            Dim ds As DataSet = New DataSet
            oleDA.Fill(ds, ws)
            dtExcel = ds.Tables(ws)