Private Sub MakeDataView()
Dim view As DataView = New DataView
With view
.Table = DataSet1.Tables("Suppliers")
.AllowDelete = True
.AllowEdit = True
.AllowNew = True
.RowFilter = "City = 'Berlin'"
.RowStateFilter = DataViewRowState.ModifiedCurrent
.Sort = "CompanyName DESC"
End With
' Simple-bind to a TextBox control
Text1.DataBindings.Add("Text", view, "CompanyName")
End Sub