Public Sub AggiungiParametroData(ByVal Parametri As ArrayList, ByVal NomeParametro As String, ByVal Direction As ParameterDirection, ByVal Valore As String)
        Dim Parametro As SqlClient.SqlParameter = New SqlClient.SqlParameter(NomeParametro, SqlDbType.DateTime)

        If Valore <> "" Then
            Parametro.Value = CDate(Valore)
        Else
            Parametro.Value = SqlTypes.SqlDateTime.Null
        End If
        Parametro.Direction = Direction

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