Imports System.Data.OleDb
Dim DS As New DataSet()
Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & System.Web.HttpContext.Current.Server.MapPath("admin/db/db.mdb"))
Dim DA As OleDbDataAdapter
Dim SQLStr As String
SQLStr = "Select * From Table1"
DA = New OleDbDataAdapter(SQLStr, Conn)
DA.Fill(DS, "Table1")
Label1.Text=DS.Table("Table1").Rows(i).Item("Col1")