<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%
    Response.ContentType = "text/plain"
    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 cmd As OleDbCommand = New OleDbCommand ("SELECT * FROM T1", con)
    Dim rdr As OleDbDataReader = cmd.ExecuteReader
    While rdr.Read
        Dim f1 As Integer = CType(rdr(0), Integer)
        Dim f2 As String = CType(rdr(1), String)
        Response.Write(f1 & " " & f2 & Environment.NewLine)
    End While
    con.Close
%>