OLE Database connection and loop through rows VB.Net

[TheDude]

' set up the connection
Dim myConn as new OleDbConnection ( _
"Provider=Microsoft.Jet.OleDb.4.0; Data Source=" & _
Server.MapPath ( "~/shared/data/dbtutor.mdb" ) )

' set up the query
Dim myCmd as new OleDbDataAdapter ( _
"select * from Products", myConn )

' instantiate dataset object
Dim myData as new DataSet ( )
' fill with query results
myCmd.Fill ( myData, "Products" )

' 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