Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim DBConnection = New OleDbConnection( _
         "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "Data Source=" & Server.MapPath("~/datame.xls") & ";" & _
         "Extended Properties=""Excel 8.0;HDR=Yes""")
        DBConnection.Open()

        Dim SQLString As String = "SELECT * FROM [Sheet2$] "
        Dim DBCommand = New OleDbCommand(SQLString, DBConnection)
        Dim DBReader As OleDbDataReader = DBCommand.ExecuteReader()

        GridView1.DataSource = DBReader
        GridView1.DataBind()
        DBReader.Close()
        DBConnection.Close()

    End Sub