ASP.NET

Protected Sub Export_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Export.Click<br />
<br />
        Dim xConnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
                    "Data Source=" & Server.MapPath("TemplateWDataNEW.xls") & ";" & _<br />
                    "Extended Properties=Excel 8.0;"<br />
<br />
<br />
        Dim objXConn As New OleDbConnection(xConnStr)<br />
        objXConn.Open()<br />
<br />
        For Each gvRow As GridViewRow In gvClients.Rows<br />
            <br />
            Dim strRoom1 As String = "INSERT INTO [Sheet2$](tvlr_Lastname, tvlr_Firstname,tvlr_title) values (@Surname,@FName,@Title)"<br />
            Dim InsertCommand As New OleDbCommand(strRoom1, objXConn)<br />
<br />
            InsertCommand.Parameters.AddWithValue("@Surname", gvRow.Cells(0).Text)<br />
            InsertCommand.Parameters.AddWithValue("@FName", gvRow.Cells(1).Text)<br />
            InsertCommand.Parameters.AddWithValue("@Title", gvRow.Cells(2).Text)<br />
            InsertCommand.ExecuteNonQuery()<br />
        Next<br />
        objXConn.Close()<br />
<br />
    End Sub