Torna al Thread
Private Function CercaValue(ByVal ListaValori As ArrayList, ByVal NomeParametro As String) As String
CercaValue = ""
Dim Record As SqlClient.SqlParameter
Dim i As Integer
For i = 0 To ListaValori.Count - 1
Record = ListaValori.Item(i)
If Record.ParameterName.ToLower = NomeParametro.ToLower Then
CercaValue = Record.Value
Exit For
End If
Next
End Function