Dim Conn As New OleDBConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;User Id=admin;Password=;")
Dim Comm As New OleDBCommand("Select * From Table1", Conn)
Conn.Open()
Dim DRs As OleDBDataReader = Comm.ExecuteReader()
Do While DRs.Read()
Response.Write(DRs("Name"))
Loop
Conn.Close()