CodeItBetter Programming Another VB Programming Blog

'Database - How to construct a Recordset of Contacts info from Outlook
Sub Main()
    ' You will need to set a refrence to Microsoft Active Data Object 2.x. Code
    Dim Con As ADODB.Connection
    Dim RS As ADODB.Recordset
    Dim I As Long
    Set Con = New ADODB.Connection
    Set RS = New ADODB.Recordset
    With Con
        .ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;" & "Exchange 4.0;" & _
            "MAPILEVEL=Outlook Address Book\;" & "PROFILE=Outlook;" & "TABLETYPE=1;" & _
            "DATABASE=C:\Temp"    'You will need to change this!
        .Open
    End With
    With RS
        Set .ActiveConnection = Con
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open "Select * from [Contacts]"
        .MoveFirst
        Do While Not RS.EOF
            For I = 0 To RS.Fields.Count - 1
                Debug.Print RS(I).Name + vbTab + Format(RS(I).Value)
            Next I
            RS.MoveNext
        Loop
        .Close
    End With
    Set RS = Nothing
    Con.Close
End Sub