<%@ Import Namespace="System.Data.OleDb" %> <% Dim con As OleDbConnection = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\MSAccess\Test.mdb;User Id=admin;Password=") con.Open Dim sel As OleDbCommand = New OleDbCommand ("SELECT * FROM T1", con) Dim rdr As OleDbDataReader = sel.ExecuteReader While rdr.Read %> <% End While rdr.Close con.Close %>

F1	F2
<%=rdr(0)%>	<%=rdr(1)%>