<%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.SqlClient" %> <% Dim dstNorthwind As DataSet Dim conNorthwind As SqlConnection Dim dadNorthwind As SqlDataAdapter ' Create the DataSet dstNorthwind = New DataSet() ' Open database connection conNorthwind = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;Database=Northwind" ) conNorthwind.Open() ' Add two tables dadNorthwind = New SqlDataAdapter( "Select * From Categories", conNorthwind ) dadNorthwind.Fill( dstNorthwind, "Categories" ) dadNorthwind.SelectCommand = New SqlCommand( "Select * From Products", conNorthwind ) dadNorthwind.Fill( dstNorthwind, "Products" ) ' Close the connection conNorthwind.Close() %> Categories and Products tables added to DataSet!