TextBoxCAP.Text = CStr("" & CType(ComboBoxComR.DataSource, DataTable).Rows(Me.ComboBoxComR.SelectedIndex)("cap"))