Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        ' Definition von Pfad
        pfad = "~/App_Data/2.xlsx"
        Dim DBConnection = New OleDbConnection(
           "Provider=Microsoft.ACE.OLEDB.12.0;" &
         "Data Source=" & Server.MapPath(pfad) & ";" &
         "Extended Properties=""Excel 8.0;HDR=Yes""")
        DBConnection.Open()
        Dim SQLString As String = "SELECT * FROM [10 - Events$]" 
        Dim DBCommand = New OleDbCommand(SQLString, DBConnection)
        Dim DBReader As IDataReader = DBCommand.ExecuteReader()
        GridView1.DataSource = DBReader
        GridView1.DataBind()
        DBReader.Close()
        DBConnection.Close()
 
 
    End Sub