Private Function CercaValueData(ByVal ListaValori As ArrayList, ByVal NomeParametro As String) As String
        CercaValueData = ""
        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

                If Record.Value = SqlDateTime.Null Then
                     Return "NULL"
                Else
                    Return CDate(Record.Value).ToString("u")
                End If

                Exit For

            End If

        Next
    End Function