Private Sub frmFornitoriClienti_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        InizializzaComponenti()
        CreaAssociazioni()
        CaricaDataGrid()
        AddHandler objDataSet.Tables(TipoSoggetti).RowChanged, AddressOf CambioRiga
    End Sub

    Private Sub CambioRiga(ByVal sender As Object, ByVal e As System.Data.DataRowChangeEventArgs)
        Me.txtCodice.DataBindings.Add("Text", Me.DataGrid.SelectedRows(Me.DataGrid.CurrentRow.Index).Cells(1), "Value")
    End Sub