<%@ Import Namespace="System.Data.OleDb" %> <% Dim conAuthors As OleDbConnection Dim cmdSelectAuthors As OleDbCommand Dim dtrAuthors As OleDbDataReader conAuthors = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=c:\Authors.mdb" ) conAuthors.Open() cmdSelectAuthors = New OleDbCommand( "Select au_lname From Authors", conAuthors ) dtrAuthors = cmdSelectAuthors.ExecuteReader() While dtrAuthors.Read() Response.Write( "

" ) Response.Write( dtrAuthors( "au_lname" ) ) End While dtrAuthors.Close() conAuthors.Close() %>