Dim sortedRows As DataRow() sortedRows = dtEmployees.Select("DepartmentId = 33", "LastName ASC")
Dim csName As Constraint Dim colsName(1) As DataColumn colsName(0) = dtEmployees.Columns.Item("FirstName") colsName(1) = dtEmployees.Columns.Item("LastName") csName = New UniqueConstraint("Name", colsName) dtEmployees.Constraints.Add(csName)