Inserting Data From A Constructed Table

I can do this in an old (~2003) way, but I'm trying to figure out a new (2005) way.  What I've got is an e-commerce project in which users select various products from a catalog and add them to a shopping cart.  Then they go to a checkout page which displays the current contents of the shopping cart, which are contained in a manually-constructed data table (system.data.datatable). 

On the checkout page a GridView displays the contents of the data table.  At that point they can check out via button click, which launches the following (somewhat simplified) ADO.NET code:1 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
2 'Some variables
3 Dim intCounter As Integer 'Used to count the loop
4 Dim prmQuantity As New System.Data.SqlClient.SqlParameter() 'A parameter
5 Dim prmProduct As New System.Data.SqlClient.SqlParameter() 'A parameter
6 Dim prmPrice As New System.Data.SqlClient.SqlParameter() 'A parameter
7 Dim InsertCommand As New System.Data.SqlClient.SqlCommand 'The SQL insert command
8 Dim dbConnection As New System.Data.SqlClient.SqlConnection 'The connection to the DB
9
10 'Set the parameters for the SQL statement
11 prmQuantity.ParameterName = "@Quantity"
12 prmQuantity.SqlDbType = Data.SqlDbType.Int
13 prmQuantity.Size = 18
14 prmQuantity.Direction = Data.ParameterDirection.Input
15
16 prmProduct.ParameterName = "@Product"
17 prmProduct.SqlDbType = Data.SqlDbType.VarChar
18 prmProduct.Size = 50
19 prmProduct.Direction = Data.ParameterDirection.Input
20
21 prmPrice.ParameterName = "@Price"
22 prmPrice.SqlDbType = Data.SqlDbType.Int
23 prmPrice.Size = 18
24 prmPrice.Direction = Data.ParameterDirection.Input
25
26 'Create the connection to the database using web.config
27 dbConnection.ConnectionString = ConfigurationManager.ConnectionStrings("MyDB").ConnectionString
28
29 'Various command settings
30 InsertCommand.CommandText = "INSERT INTO [Orders] ([Quantity], [Product], [OrderDate], [ItemPrice]) VALUES (@Quantity, @Product, {fn NOW()}, @Price)"
31 InsertCommand.CommandType = Data.CommandType.Text
32 InsertCommand.Connection = dbConnection
33
34 'Add the rows to the database
35 For intCounter = 0 To objDT.Rows.Count - 1
36
37 'Re-inserts the data rows from objDT
38 objDR = objDT.Rows(intCounter)
39
40 'Set param values
41 prmQuantity.Value = objDR("Quantity")
42 prmProduct.Value = objDR("Product")
43 prmPrice.Value = objDR("Price")
44
45 'Add params to insert command
46 InsertCommand.Parameters.Add(prmQuantity)
47 InsertCommand.Parameters.Add(prmProduct)
48 InsertCommand.Parameters.Add(prmPrice)
49
50 'Open connection
51 InsertCommand.Connection.Open()
52
53 'Execute the insert command
54 InsertCommand.ExecuteNonQuery()
55
56 'Close connection and clear parameters for the next loop
57 InsertCommand.Connection.Close()
58 InsertCommand.Parameters.Clear()
59
60 Next
61
62 Response.Redirect("done.aspx")
63
64 End Sub
65
What I'd like to do is see if I can instead use a simplified approach based on 2.0 controls. Specifically, I was hoping that I could use an
SqlDataSource and simply tap into its built-in Insert capabilities. So I tried this alternate procedure:
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim intCounter As Integer 'Used to count the loop
For intCounter = 0 To objDT.Rows.Count - 1
DSOrdersNew.InsertParameters("Product") = objDR("Product")
DSOrdersNew.InsertParameters("Quantity") = objDR("Quantity")
DSOrdersNew.Insert()
Next
End SubWhen I run this I get an error message saying: "Unable to cast object of type 'System.String' to type 'System.Web.UI.WebControls.Parameter'."Am I just way out in left field here? I guess I don't mind doing it the old-fashioned way, but it seems like there ought to be a way
to do this. Any suggestions would be appreciated. Thanks!