Dim strconn As String
strconn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Server.MapPath("Stest.xlsx") + ";Extended Properties=""Excel 12.0"""
Dim olConn As New OleDbConnection(strconn)
Dim orr As OleDbDataReader
olConn.Open()
Dim od As New OleDbCommand("SELECT * FROM [Sheet1$]", olConn)
orr = od.ExecuteReader()