Public Sub Import_Test()
        Dim ExcelPath As String = "C:\Temp\Test.xlsx"
        Dim Connection As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data" & _
          "Source=" & ExcelPath & "; Extended Properties=""Excel 12.0 Xml;" & _
          "HDR=Yes; IMEX=1"""
        Dim query As String = "SELECT * FROM [Tabelle1$]"
        Dim con As System.Data.OleDb.OleDbConnection = New _
          System.Data.OleDb.OleDbConnection(Connection)
        con.Open()
        Dim command As System.Data.OleDb.OleDbCommand = New _
          System.Data.OleDb.OleDbCommand(query, con)
        Dim adapter As System.Data.OleDb.OleDbDataAdapter = New _
        System.Data.OleDb.OleDbDataAdapter(command)
        Dim dt As System.Data.DataTable = New System.Data.DataTable()
        adapter.Fill(dt)
        DataGridExcel.DataSource = dt
        dt.Dispose()
        adapter.Dispose()
        command.Dispose()
        con.Close()
        con.Dispose()
    End Sub