string html;

protected void Page_Load ( Object Src, EventArgs e ) {
   // set up the connection
   SqlConnection myConn = new SqlConnection (
      "server=localhost; trusted_connection=yes; database=northwind" );
   // set up the query
   SqlDataAdapter myAdapter = new SqlDataAdapter ( "SELECT * FROM Customers", myConn );

   // instantiate dataset object
   DataSet myData = new DataSet ( );
   // fill with query results
   myAdapter.Fill ( myData, "Customers" );

   // display dataset contents into html table
   // first open the table and set up the table headers
   html += "<table cellspacing=1 class='data' width=80%>";
   html += "<tr>";
   html += "<th>Customer ID</th>";
   html += "<th>Company Name</th>";
   html += "</tr>";

   // loop thru the dataset
   foreach ( DataRow Customer in myData.Tables [ "Customers" ].Rows ) {   
      html += "<tr>";
      html += "<td>" + Customer [ "CustomerID" ].ToString ( ) + "</td>";
      html += "<td>" + Customer [ "CompanyName" ].ToString ( ) + "</td>";
      html += "</tr>";
   }

   // close the table
   html += "</table>";
}

dim html as string

protected sub Page_Load ( byVal Src as Object, byVal E as EventArgs ) {
   ' set up the connection
   dim myConn as new SqlConnection (
      "server=localhost; trusted_connection=yes; database=northwind" )
   ' set up the query
   dim myAdapter as new SqlDataAdapter ( "SELECT * FROM Customers", myConn )

   ' instantiate dataset object
   dim myData as new DataSet ( )
   ' fill with query results
   myAdapter.Fill ( myData, "Customers" )

   ' display dataset contents into html table
   ' first open the table and set up the table headers
   html &= "<table cellspacing=1 class='data' width=80%>"
   html &= "<tr>"
   html &= "<th>Customer ID</th>"
   html &= "<th>Company Name</th>"
   html &= "</tr>"

   ' loop thru the dataset
   foreach Customer as DataRow in myData.Tables ( "Customers" ).Rows
      html &= "<tr>"
      html &= "<td>" & Customer ( "CustomerID" ).ToString ( ) & "</td>"
      html &= "<td>" & Customer ( "CompanyName" ).ToString ( ) & "</td>"
      html &= "</tr>"
   next

   ' close the table
   html &= "</table>"
end sub