'Load data into the 'northwindDataSet.Customers' table. Me.customersTableAdapter.Fill(Me.northwindDataSet.Customers) For i As Integer = 0 To Me.northwindDataSet.Tables("Customers").Rows.Count- 1 Dim row As DataRow = Me.northwindDataSet.Tables("Customers").Rows(i) ' Break out the field values for this row Dim customerID As String = TryCast(row("CustomerID"), String) Dim companyName As String = TryCast(row("CompanyName"), String) 'Adding Items to the ultraListView Me.ultraListView1.Items.Add(customerID, companyName) ' Allow extended selection for items Me.ultraListView1.ItemSettings.SelectionType = SelectionType.Extended 'Setting LeftMouseButton to perform Lasso Selection ultraListView1.ItemSettings.LassoSelectMode= LassoSelectMode.LeftMouseButton Next