'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