Take a look on this code & hope this will help you.

Assume you have reference your project to Microsoft DAO 3.5 Object Library

Goto Project|Reference

Code:
Option Explicit
Private Db As DAO.Database
Private Rs As DAO.Recordset
Private xSQL As String
Private Sub Form_Load()
'Open the Biblio.mdb database
Set Db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\Biblio.mdb", False, False)

'Build the SQL string
xSQL = "SELECT * FROM Titles WHERE PubID=175 ORDER BY Title ASC;"

'Open the recordset
Set Rs = Db.OpenRecordset(xSQL, dbOpenSnapshot)

DoEvents
While Not Rs.EOF
    Debug.Print Rs.Fields(0) & Space(10) & Rs.Fields(1) & Space(10) & _
                Rs.Fields(2) & Space(10) & Rs.Fields(3) & Space(10) & _
                Rs.Fields(4) & Space(10) & Rs.Fields(5) & Space(10) & _
                Rs.Fields(6) & Space(10) & Rs.Fields(7)
    Rs.MoveNext
Wend

'Close the recordset & database
Rs.Close
Db.Close

'Close the DAO Object
Set Rs = Nothing
Set Db = Nothing
End Sub