VB/ASP.Net Collection with a For Each loop

Public Structure SQL_Elements
        Dim FieldName As String
        Dim FieldValue As String
        Dim FieldType As String
End Structure

Public SQLCollection As Collection

Protected Sub btnSave1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave1.Click

SQLCollection = New Collection() ' Creates a new Collection to store the SQL elements in
Dim Temp As SQL_Elements 'Creates a new empty structure to place the SQL elements in

        Temp.FieldName = "OtherProgramInvolvment"
        Temp.FieldValue = txtOtherProgramInvolvment.Text
        Temp.FieldType = "SQLDbType.nvarchar, (MAX)"
        SQLCollection.Add(Temp)

dbsql.sqlUpdate("TblReferral_Community", SQLCollection, "ID='" & Request.QueryString("RID") & "'")
        
End Sub

Select allOpen in new window

Public Shared Sub sqlUpdate(ByVal SQLTable As String, ByVal SQLCollection As Collection, ByVal WhereClause As String)

 For Each Item In SQLCollection 'This line causes the error
            cmd.Parameters.Add(New SqlParameter("'" & "@" & Item.FieldName & "'", Item.FieldType))
            cmd.Parameters("'" & "@" & Item.FieldName & "'").Value = Item.FieldValue
            SetClauses = SetClauses & Item.FieldName & " = " & "@" & Item.FieldName
            If Not ItemCounting = SQLCollection.Count Then
                SetClauses = SetClauses & ","
            End If
 Next

End Sub

Select allOpen in new window