Connexion vb6 et access en dao

Sub connectionDAO()
Dim myBase As String
Dim cnxDAO As Database
Dim rs As Recordset
Dim Requete As String

    'chemin complet de ma base
    myBase = "C:\MonProjet\database\maBase.mdb"

    'Ouverture de la base
    Set cnxDAO = OpenDatabase(myBase)

    Requete = "SELECT * FROM CLIENTS"

    'Passage de la requete
    Set rs = cnxDAO.OpenRecordset(Requete)

    'Lecture du recordset
    rs.MoveFirst
    While Not rs.EOF
        '.....
    Wend

    'Fermeture du recorset et de la base
    rs.Close
    cnxDAO.Close

    'Libération des objets
    Set rs = Nothing
    Set cnxDAO = Nothing

End Sub

quelle sont les étape pour faire la connexion vb6 et access en dao