' Excel-Tabelle anzeigen
        Dim oDs As System.Data.DataSet
        Dim oConn As System.Data.OleDb.OleDbConnection
        Dim oAdapter As System.Data.OleDb.OleDbDataAdapter
 
        ' Pfad und Tabellennamen bitte anpassen!
        Dim sFile As String = "C:\Woerterbuch.xls"
        Dim sTable As String = "am Telefon"
 
        ' Connection-String für die DB.Verbindung zur Excel-Datei
        Dim sConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & sFile & ";" & _
          "Extended Properties=Excel 8.0;"
 
        ' Connection herstellen
        oConn = New System.Data.OleDb.OleDbConnection(sConn)
 
        ' Excel-Tabelle referenzieren
        ' Hinweis: Tabellenname muss mit abschließendem $-Zeichen und
        ' in eckigen Klammern stehen
        oAdapter = New System.Data.OleDb.OleDbDataAdapter( _
          "SELECT * FROM [" & sTable & "$]", oConn)
 
        ' DataSet erstellen und mit Daten aus dem DataAdapter füllen
        oDs = New System.Data.DataSet
        Try
            oAdapter.Fill(oDs)
 
            ' DataGrid füllen und Daten anzeigen
            With DataGridView1
                .DataSource = oDs.Tables(0)
                .ReadOnly = True
                .Refresh()
                With .Columns(0).DefaultCellStyle
                    .Alignment = DataGridViewContentAlignment.MiddleRight
                    .BackColor = Color.AliceBlue
                End With
 
                With .Columns(1).DefaultCellStyle
                    .Alignment = DataGridViewContentAlignment.MiddleRight
                    .BackColor = Color.AliceBlue
                End With
 
                With .AlternatingRowsDefaultCellStyle
                    .BackColor = Color.LemonChiffon
                End With
 
            End With
 
            DataGridView1.AutoResizeColumns()
        Catch ex As Exception
            MsgBox("Fehler beim Anzeigen der Excel-Daten!")
        Finally
            ' DB-Verbindung schließen
            oConn.Close()
        End Try
 
 
        For Each row In DataGridView1.Rows
            If Len(row.Cells(0).Value) = 1 Then
                row.Cells(0).Style.Font = New Font("Arial", 9, _
                                 FontStyle.Bold)
                row.Cells(0).Style.Alignment = _
                  DataGridViewContentAlignment.TopLeft
 
            End If
 
            If Len(row.Cells(1).Value) = 1 Then
                row.Cells(1).Style.Font = New Font("Arial", 9, _
                                FontStyle.Bold)
                row.Cells(1).Style.Alignment = _
                  DataGridViewContentAlignment.TopLeft
            End If
        Next
 
 
 
 
        oDs = Nothing
        oConn = Nothing
        oAdapter = Nothing
        sFile = Nothing
        sTable = Nothing
        sConn = Nothing