Datareader

Imports System.Data.OleDb
Module Module1

Sub Main()
Dim con As OleDbConnection = Nothing
Dim cmd As OleDbCommand = Nothing
Dim reader As OleDbDataReader = Nothing

Try
con = New OleDbConnection()
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Environment.CurrentDirectory & "\\" & "databasedic.accdb"
con.Open()
cmd = New OleDbCommand("Select * From Dictbl", con)
reader = cmd.ExecuteReader()

While reader.Read()

Console.WriteLine(reader(0).ToString())
End While
Catch e As Exception
Console.WriteLine("Error")
Finally

con.Close()
End Try
Console.Read()
End Sub

End Module

http://www.worldbestlearningcenter.com/index_files/VB_NET_Databases_Access_ADO_Command_DataReader_Objects.htm