恩。。。改一点!
看下面这段代码
————————————————————————————————————
Dim conNorthwind As SqlConnection
Dim daNorthwind As SqlDataAdapter
dsStore = New DataSet
conNorthwind = New SqlConnection("Server=localhost;user id=sa;password=xxx;database=Northwind;")
daNorthwind = New SqlDataAdapter("Select * from Categories", conNorthwind)
daNorthwind.Fill(dsStore, "Categories")
datagrid1.datasource=dsStore.Tables("Categories")
datagrid1.DataBind()
Dim conNorthwind As SqlConnection
Dim daNorthwind As SqlDataAdapter
dsStore = New DataSet
conNorthwind = New SqlConnection("Server=localhost;user id=sa;password=xxx;database=Northwind;")
daNorthwind = New SqlDataAdapter("Select CategoryID,categoryName from Categories", conNorthwind)
daNorthwind.Fill(dsStore, "Categories")
DataList1.DataSource = dsStore.Tables("Categories")
DataList1.DataBind()