Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mail.xls") & ";Extended Properties=""Excel 8.0;"""
Dim myData As New OledbDataAdapter("SELECT * FROM [Sheet1$]", strConn)