Error:Collection Was Modified; Enumeration Operation May Not Execute

Hi,

This is my save procedure.

Please check and give me some advice.looping is need or not?

i get error "Collection was modified; enumeration operation may not execute"

plz help me.

-------------------------------------------------------------------------------- Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

Dim con As SqlConnectionDim cmd As SqlCommand

Dim da As SqlDataAdapter

Dim userid As String

Try

userid = Request.QueryString("userid")con = New SqlConnection(ConfigurationSettings.AppSettings("strcon"))

' con.ConnectionString = ConfigurationSettings.AppSettings("strcon")

con.Open()cmd = New SqlCommand("dbo.sp_AddAns", con)

cmd.CommandType = CommandType.StoredProcedure

 

 For Each Item As DataListItem In dlAQ.ItemsDim paramid As New SqlParameter("@id", SqlDbType.Int, 4)

paramid.Value = userid.Trim

cmd.Parameters.Add(paramid)Dim paramans As New SqlParameter("@proansw", SqlDbType.NVarChar, 50)

Dim txtbox As New TextBoxtxtbox = CType(Item.FindControl("txtAns"), TextBox)

paramans.Value = txtbox.Text.Trim

cmd.Parameters.Add(paramans)

 Dim paramprodesc As New SqlParameter("@prodesc", SqlDbType.NVarChar, 50)

Dim lbldesc1 As New Labellbldesc1 = CType(Item.FindControl("lbldesc"), Label)

paramprodesc.Value = lbldesc1.Text.Trim

cmd.Parameters.Add(paramprodesc)

 Dim paramproid As New SqlParameter("@proid", SqlDbType.Int, 4)

Dim lblproid1 As New Labellblproid1 = CType(Item.FindControl("lblproid"), Label)

paramproid.Value = lblproid1.Text.Trim

cmd.Parameters.Add(paramproid)Dim paramreso As New SqlParameter("@proreso", SqlDbType.NVarChar, 50)

Dim lblreso1 As New Labellblreso1 = CType(Item.FindControl("lblreso"), Label)

paramreso.Value = lblreso1.Text.Trim

cmd.Parameters.Add(paramreso)Dim paramchk As New SqlParameter("@chk", SqlDbType.Int, 4)

paramchk.Value = "2"

cmd.Parameters.Add(paramchk)

'Dim rowaffected As Integer

cmd.ExecuteNonQuery()

bindData()

 

 

Next Item