Código:
'Llena combo de Tecnologias Private Sub FillTec() Dim dvTec As DataView dvTec = Pry.dvGetAcc() If dvTec Is Nothing Then Response.Redirect("WebError.aspx?eCode=RIE.dvGetTec") ElseIf dvTec.Table.Rows.Count <= 0 Then Response.Redirect("WebError.aspx?eCode=RIE.dvGetTecND") Else Dim drv As DataRowView drv = dvTec.AddNew drv(0) = "-1" drv(1) = "Selecciona una acción" dvTec.Sort = "CveEntAcc ASC " 'dvTec.RowStateFilter = DataViewRowState.ModifiedOriginal dvTec.Table.Select("order by CveEntAcc ASC ") With CmbTpoTec .Items.Clear() .DataSource = dvTec .DataValueField = dvTec.Table.Columns(0).ColumnName .DataTextField = dvTec.Table.Columns(1).ColumnName .DataBind() End With End If End Sub