Public Sub AggiungiParametro(ByVal Parametri As ArrayList, ByVal NomeParametro As String, ByVal Direction As ParameterDirection, ByVal Valore As Object) 
        Dim Parametro As SqlClient.SqlParameter = New SqlClient.SqlParameter()
        Parametro.ParameterName = NomeParametro
        Parametro.Direction = Direction
        Parametro.Value = Valore
        'Parametro.DbType =  Tipo  inserire la possibilità del tipo

        'aggiungilo alla lista
        Parametri.Add(Parametro)
    End Sub