Ciencia

Try
If DetallesConponentes.Count > 0 Then
Dim Parametros As New Ent_ActivosComponentes
Parametros =DetallesConponentes.Item(DgvVistaDatosComponente.FocusedRowHandle)
TxtNumComponente.Text = Parametros.Num_Item
OrigenCompra = Parametros.Af_Orig_Codigo
AnioProvision = Parametros.Af_Anio_ProvisionPeriodoProvision = Parametros.Af_Periodo_Provision
TxtFolioProvision.Text = Parametros.Af_Folio_Provision
TxtCodCatalogoCmpte.Tag =Parametros.Af_CTC_Tipo
TxtCodCatalogoCmpte.Text = Parametros.Af_CTC_Codigo
txtDescripComponente.Text = Parametros.Af_DescripcionCatalogo

TxtFechaAdqComp.Text =Parametros.Af_FechaAdquisicion
TxtCodUnidadComponente.Text = Parametros.Af_Cod_UnidadMedida
TxtUnidadComponente.Text = Parametros.Af_UnidadMedidaTxtCodMarcaComponente.Text = Parametros.Af_Cod_Marca
TxtNommarcaComponente.Text = Parametros.Af_Marca
TxtModeloComponente.Text = Parametros.Af_ModeloTxtNumSerieComponente.Text = Parametros.Af_Serie
TxtCodColorComp.Text = Parametros.Af_Cod_Color
TxtColorComp.Text = Parametros.Af_Color_DescipcionTxtNplaca.Text = Parametros.Af_Numero_Placa
TxtAnioFabri.Text = Parametros.Af_AnioFabricacion
TxtCapacidad.Text = Parametros.Af_Capacidad'TxtCodGrupo.Text = Parametros.Af_Cod_Grupo
'TxtNomGrupo.Text = Parametros.Af_Grupo
'TxtCodClaseAF.Text = Parametros.Af_Cod_Clase
'TxtNomClaseAF.Text =Parametros.Af_Clase
'TxtCodFamilia.Text = Parametros.Af_Cod_Familia
'TxtNomFamilia.Text = Parametros.Af_Familia
TxtVadquisicionComponente.Text =...