Dim _cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand("SPGETSPPARAMETERS", Connessione)
        _cmd.CommandType = CommandType.StoredProcedure
        _cmd.Parameters.AddWithValue("@StoredProcedure", StoredProcedure)

        Dim _adapter As SqlDataAdapter = New SqlDataAdapter(_cmd)
        Dim _parametri As New DataTable
        _adapter.Fill(_parametri)
        
        Dim Comando As SqlCommand = New SqlCommand(StoredProcedure)
        For i As Int16 = 0 To _parametri.Rows.Count - 1
            If ClasseForm.Controls.Item(Mid(_parametri.Rows(i).Item("Nome").ToString, 2)) IsNot Nothing Then
                Comando.Parameters.AddWithValue(_parametri.Rows(i).Item("Nome").ToString, ClasseForm.Controls.Item(Mid(_parametri.Rows(i).Item("Nome").ToString, 2)).Text)
                Select Case _parametri.Rows(i).Item("Direzione").ToString
                    Case "IN"
                        Comando.Parameters.Item(_parametri.Rows(i).Item("Nome").ToString).Direction = ParameterDirection.Input
                    Case "INOUT"
                        Comando.Parameters.Item(_parametri.Rows(i).Item("Nome").ToString).Direction = ParameterDirection.InputOutput
                End Select
            End If

        Next


        Return Comando