Inserting Multiple Records Using For Each

Hi, I am a rookie at sql and asp.net. 
I have another post is the asp.net section http://forums.asp.net/thread/1589094.aspx. Maybe I posted it in the wrong section.

I am collecting multiple rows from a gridview.  I validated/confirmed I am capturing the correct values.  How ever, I am having major problems passing these to an sql database.  The problems that I know of is declaring my parameters correctly and then adding the values through a for each statement.  I added the post over 30 hours ago with only me as the replier trying to refining or clarifying the problem.  Part 1 is the code that works, part 2 is my problem, I have tried may different ways to resolve this but no luck.

Regards!

 Protected Sub Botton1_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

**************** PART1 **************************
Dim gvIDs As String = ""
Dim ddIDs As String = ""
Dim chkBox As Boolean = False
Dim chkBox1 As Boolean = False


'Navigate through each row in the GridView for checkbox items
ddIDs = DropDownList1.SelectedValue.ToString


For Each gv As GridViewRow In GridView1.Rows
Dim addChkBxItem As CheckBox = CType(gv.FindControl("delCheckBox"), CheckBox)
Dim addChkBx1Item As CheckBox = CType(gv.FindControl("CheckBox1"), CheckBox)

If addChkBxItem.Checked Then
     chkBox = True
     gvIDs = CType(gv.FindControl("TestID"), Label).Text.ToString
     Response.Write(ddIDs + " " + gvIDs + " ")

     If addChkBx1Item.Checked Then
          chkBox1 = True
          Response.Write("Defaut Item")
    End If
          Response.Write("<br />")
End If
Next

******************** Part 2 *****************************************************

Dim cn As SqlConnection = New SqlConnection(SqlDataSource1.ConnectionString)

If chkBox Then
Try
     Dim insertSQL As String = "INSERT INTO testwrite (TestLast, test1ID, TestDefault) VALUES (@TestLast, @test1ID, @TestDefault)"
     Dim cmd As SqlCommand = New SqlCommand(insertSQL, cn)
     cmd.Parameters.AddWithValue("@TestLast", DropDownList1.SelectedValue.ToString)
     cmd.Parameters.AddWithValue("@test1ID", CType(gv.FindControl("TestID"), Label).Text.ToString)
     cmd.Parameters.AddWithValue("@TestDefault, CType(gv.FindControl("CheckBox1"), CheckBox))
     cn.Open()

      For Each .....
          Problems here also

      Next


     cmd.ExecuteNonQuery()
Catch err As SqlException
     Response.Write(err.Message.ToString)
Finally
     cn.Close()
End Try
End If