Dim Cnxn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strSQL As String

        'Open a new connection to the database
        Set Cnxn = CreateObject("ADODB.Connection")
        Cnxn.Provider = "Driver={Microsoft Access Driver (*.mdb)};" & _ 
           "Dbq=c:\somepath\mydb.mdb;" & _
           "Uid=admin;" & _
           "Pwd="
        Cnxn.Open
        Set rst = CreateObject("ADODB.Recordset")
        strSQL = "select * from table"
        rst.Open strSQL, Cnxn
	Do While Not rst.EOF
		Debug.Print rst.FIelds(0)
                rst.moveNext
	Loop        
        rst.Close

        Set rst = Nothing
        Set Cnxn = Nothing