string html;

protected void Page_Load ( Object Src, EventArgs e ) {
   // set up the connection
   OleDbConnection myConn = new OleDbConnection (
      ( "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + 
      Server.MapPath ( "~/app_data/dbtutor.mdb" ) );
   // set up the query
   OleDbDataAdapter myAdapter = new OleDbDataAdapter (
      "SELECT * FROM Products", 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 OleDbConnection (
      ( "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & _ 
      Server.MapPath ( "~/app_data/dbtutor.mdb" ) )
   ' set up the query
   dim myAdapter as new OleDbDataAdapter ( _
      "SELECT * FROM Products", 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