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)