' set up the connection
Dim myConn as new SqlConnection ( _
"server=(local)\NetSDK; trusted_connection=yes; database=northwind" )
' set up the query
Dim myCmd as new SqlDataAdapter ( _
"select * from customers", myConn )
' instantiate dataset object
Dim myData as new DataSet ( )
' fill with query results
myCmd.Fill ( myData, "Customers" )
' display dataset contents
foreach table as DataTable in myData.Tables
foreach row as DataRow in table.Rows
foreach col as DataColumn in table.Columns
Response.Write ( row ( col ).ToString ( ) )
next
next
next