how to input excel file interactively?

[mijan]

I have a code that can automtically insert the content of excel file into sql database. But what i want is non hardcoded part.which is user can browse through the file using browse function and choose the excel file that they want. When we click submit then everything is saved to the sql database. First of all i have this code: Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & Server.MapPath("../ExcelData.xls") _ & ";" & "Extended Properties=Excel 8.0") ' Open connection with the database. Try objConn.Open() ' Create new OleDbCommand to return data from worksheet. Dim objCmdSelect As New OleDbCommand("SELECT * FROM Range ", objConn) ' Create new OleDbDataAdapter that is used to build a DataSet ' based on the preceding SQL SELECT statement. Dim objAdapter1 As New OleDbDataAdapter ' Pass the Select command to the adapter. objAdapter1.SelectCommand = objCmdSelect ' Create new DataSet to hold information from the worksheet. Dim objDataset1 As New DataSet ' Fill the DataSet with the information from the worksheet. objAdapter1.Fill(objDataset1, "XLData") Dim xldt As New DataTable objAdapter1.Fill(xldt) objAdapter1.Dispose() ' objConn.Close() DataGrid1.DataSource = objDataset1.Tables(0).DefaultView DataGrid1.DataBind() ' Clean up objects. objConn.Close() Dim conn As New SqlConnection("workstation id=x;packet size=4096;user id=sa;data source=x;persist security info=True;initial catalog=Gx;password=x") conn.Open() Dim da As New SqlDataAdapter("select * from TEST_DATA", conn) Dim cb As SqlCommandBuilder = New SqlCommandBuilder(da) Dim ds As New DataSet da.Update(ds, "TEST_DATA") For Each xlrow As DataRow In xldt.Rows Dim dr As DataRow = ds.Tables("TEST_DATA").NewRow For Each col As DataColumn In ds.Tables("TEST_DATA").Columns dr(col.ColumnName) = xlrow(col.ColumnName) Next ds.Tables("TEST_DATA").Rows.Add(dr)