Dim oDs As System.Data.DataSet
        Dim oConn As System.Data.OleDb.OleDbConnection
        Dim oAdapter As System.Data.OleDb.OleDbDataAdapter
        Dim sFile As String = "C:\Datenbanken\Kontakte.xls"
        Dim sTable As String = "Kontakte"
 
        Dim sConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & sFile & ";" & _
          "Extended Properties=Excel 8.0;"
 
        oConn = New System.Data.OleDb.OleDbConnection(sConn)
 
        oAdapter = New System.Data.OleDb.OleDbDataAdapter( _
          "SELECT * FROM [" & sTable & "$]", oConn)
 
        oDs = New System.Data.DataSet
        Try
            oAdapter.Fill(oDs)
 
            With DataGrid1
                .DataSource = oDs.Tables(0)
                .ReadOnly = True
                .Refresh()
            End With
        Catch ex As Exception
            MsgBox("Fehler beim Anzeigen der Excel-Daten!")
        Finally
 
            oConn.Close()
        End Try