Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim salesByCategoryAdapter As C1NWindDataSetTableAdapters.Sales_by_CategoryTableAdapter = New C1NWindDataSetTableAdapters.Sales_by_CategoryTableAdapter()
salesByCategoryAdapter.Fill(c1NWindDataSet.Sales_by_Category)
Dim categorySalesAdapter As C1NWindDataSetTableAdapters.Category_Sales_for_2014TableAdapter = New C1NWindDataSetTableAdapters.Category_Sales_for_2014TableAdapter()
categorySalesAdapter.Fill(c1NWindDataSet.Category_Sales_for_2014)
Dim expensiveProductsAdapter As C1NWindDataSetTableAdapters.Ten_Most_Expensive_ProductsTableAdapter = New C1NWindDataSetTableAdapters.Ten_Most_Expensive_ProductsTableAdapter()
expensiveProductsAdapter.Fill(c1NWindDataSet.Ten_Most_Expensive_Products)
End Sub