' 填充数据集
Dim con As SqlConnection = New SqlConnection("server=(local)\NetSDK;Trusted_Connection=yes;database=northwind")
Dim cmd As SqlDataAdapter = New SqlDataAdapter("Select * from Customers where country='USA'", con)
cmd.Fill(customersDataSet1, "Customers")