Public Sub edit(ByVal codice As String)
        Try
            SqlCmd.CommandText = "GetPagamenti_2"
            SqlCmd.Parameters.Add("Codice", SqlDbType.VarChar).Value = codice
            SqlCmd.Connection = Db
            SqlCmd.CommandType = CommandType.StoredProcedure
            SqlDr = SqlCmd.ExecuteReader
            If SqlDr.Read() Then
                Me.TextBox1.Text = SqlDr.GetSqlString(0).Value
                Me.TextBox2.Text = SqlDr.GetSqlString(1).Value
                Me.ComboBox1.Text = SqlDr.GetSqlString(2).Value
                Me.ComboBox2.Text = SqlDr.GetSqlString(3).Value
            End If
            SqlDr.Close()
            SqlCmd.Parameters.Clear()
            SqlCmd.Dispose()
            Me.Button1.Text = "Aggiorna (F8)"
            Me.Button1.Enabled = False
            Me.TextBox2.Focus()
            modifica = True
        Catch
            MessageBox.Show(Err.Description, "INVOICE.IT", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            SqlDr.Close()
            SqlCmd.Parameters.Clear()
            SqlCmd.Dispose()
        End Try
    End Sub