I know the way to retrieve data from an excel sheet by the code
Imports Microsoft.Office
Imports System.Data.OleDb
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls



Partial Class _Default
    Inherits System.Web.UI.Page

    Dim conn As New OleDbConnection
    Dim comm As New OleDbCommand
    Dim DReader As OleDbDataReader
    Dim str As String = ""
    Dim str1 As String = "Ans(e)"

    Private Function createconnstring(ByVal str As String) As String
        Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + str + ";Extended Properties=""Excel 8.0;HDR=YES;"""
    End Function

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            conn.ConnectionString = createconnstring("C:\Documents and Settings\Administrator\Desktop\example1.xlsm")


            comm.Connection = conn
            comm.CommandText = "select * from [test$] where Qno = 1 "
            conn.Open()
            DReader = comm.ExecuteReader()
            Do While DReader.Read
                str = str + vbCrLf + DReader(3).ToString() + vbCrLf + DReader("Ans (b)").ToString()




            Loop
            Response.Write(str.ToString())


            DReader.Close()
            conn.Close()

        Catch ex As Exception
            MsgBox("error.")
            conn.Close()

        End Try
    End Sub
End Class
but this show error if i use an excel with macro enabled file that is .xlsm file how to make this code compatible for that file too