Reading from Excel

[hpl]

How do I read from an Excel file? How should the code be compared to the code of reading from Access?

Protected Sub bindKomponenter()
        Dim strCn As String = "Provider=Microsoft.jet.oledb.4.0;"
        strCn += "Data Source=" & Server.MapPath("priser04.mdb") & ";"
        Dim cn As OleDbConnection = New OleDbConnection(strCn)
        Dim cmdText As String = "Select komponenter.Id as kompId, komponenter.Komponent FROM komponenter,materiale_komponenter WHERE materiale_komponenter.kompId=komponenter.id AND materiale_komponenter.MatId=" & intMatNr
        Dim cmd As OleDbCommand = New OleDbCommand(cmdText, cn)
        cmd.Connection.Open()
        komp1.DataSource = cmd.ExecuteReader()
        komp1.DataValueField = "kompId"
        komp1.DataTextField = "Komponent"
        komp1.DataBind()
        cmd.Connection.Close()
        cmd.Connection.Open()
        komp2.DataSource = cmd.ExecuteReader()
        komp2.DataValueField = "kompId"
        komp2.DataTextField = "Komponent"
        komp2.DataBind()
        cmd.Connection.Close()
    End Sub

[hpl]

I have this code for ASP 3.0. Can anyone help me making it work in ASP.Net?

<%
'Name of the excel file being displayed
exceldb="test.xls"

' Create a server connection object
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DBQ=" & Server.MapPath(exceldb) & ";" & _
"DRIVER={Microsoft Excel Driver (*.xls)};"


' Create a server recordset object
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from hpl"
' Execute the sql
rs.Open sql, cn
dim hpl1 
hpl1= rs("Price")
Response.Write(hpl1)

Response.Write("<table border=1 align=center>")

For counter = 0 To rs.fields.count - 1
	Response.Write("<th>")
	' Write out the field names 
	response.write rs.fields.item(counter).name
	Response.Write("</th>")
	' Move to the next field
next 

	' Move to the first record
	rs.movefirst
	'Write out the record set
do while not rs.eof 
	response.write("<tr>") 
	' Loop through all of the fileds
	for counter = 0 to rs.fields.count - 1
		Response.Write("<td align=right>")
		' Write out the field values 
		response.write rs.fields.item(counter).value
		Response.Write("</td>")
		' Move to the next field
	next 
	Response.Write("</tr>")
	' Move to the next record
rs.movenext
loop

Response.Write("</table>")

' Kill the recordset
rs.close
Set rs = nothing
' Kill the connection
cn.close
Set cn = nothing
%>