Dim prezzo As Double
        Dim NumeroListini As Object
        For A As Integer = 1 To NumeroListini
            prezzo = FormatCurrency(DataGridViewListino.Rows(A - 1).Cells("R_Prezzo").Value)
            ' prezzo = prezzo.Replace(".", ",")
            Dim commandtext0 As String = "INSERT ListiniPrezzi (ID_Listino,ID_Articolo) VALUES (@ID_Listino,@ID_Articolo)"
            Dim commandtext1 As String = "UPDATE listiniPrezzi SET R_Prezzo='" & prezzo.ToString & "' WHERE ID_Articolo= '" & IndiceIdArticolo.Text & "' AND ID_Listino=" & A
            Dim connectionString As String = My.Settings.WeaGestDBConnectionString & "xxxxxxxxx"
            Using connection As New SqlConnection(connectionString)
                Dim command As New SqlCommand(commandtext0, connection)
                Dim command2 As New SqlCommand(commandtext1, connection)
                command.Parameters.AddWithValue("@ID_Listino", A)
                command.Parameters.AddWithValue("@ID_Articolo", IndiceIdArticolo.Text)
                ' command2.Parameters.AddWithValue("@R_Prezzo", DataGridViewListino.CurrentRow.Cells("R_Prezzo").Value.ToString)
                connection.Open()
                command.ExecuteNonQuery()
                command2.ExecuteNonQuery()
            End Using
        Next
        MessageBox.Show("Listini Registrati")