Visual Basic - Ver contactos de Outlook en Visual

Hola, alguien me puede ayudar, necesito descargar en un recordset o en un grid los contactos de Outlook, necesito sabes como, help me!!!!!

Gracias.
[email protected]
Monterrey, Mexico

Agrega la referencia a Outlook en tu proyecto y fijate con esto:

Dim oApp As Outlook.Application, oContact As Outlook.ContactItem, oNameSpace As Outlook.NameSpace
Dim oAddressLists As Outlook.AddressLists, oAddressList As Outlook.AddressList
Dim oAddressEntries As Outlook.AddressEntries, oAddressEntry As Outlook.AddressEntry

Set oApp = New Outlook.Application

Set oNameSpace = oApp.GetNamespace("MAPI")

For Each oAddressList In oNameSpace.AddressLists
For Each oAddressEntry In oAddressList.AddressEntries
Debug.Print oAddressEntry.Name
Next
Next

oApp.Quit
Set oApp = Nothing