I think this code should do the work
Imports System.Data.OLEDB
Imports System.Data
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ure_db.mdb;"
Dim strSQL As String = "SELECT * FROM some_table;"
Dim conn As New OLEDB.OLEDBConnection(strConn)
conn.Open()
Dim cmd As New OLEDB.OLEDBCommand(strSQL,conn)
Dim DataR As OLEDB.OLEDBDataReader = cmd.ExecuteReader()
While (DataR.Read())
DataR.Item("field_from_some_table")
End While
this should work...