Dim objConnection As New ADODB.Connection
    Dim objRecordset As New ADODB.Recordset
    Dim i As Integer
    
    objConnection.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
        "Exchange 4.0;MAPILEVEL=Адресная книга Outlook;PROFILE=Outlook;" & _
        "TABLETYPE=1;TABLENAME=Контакты;DATABASE=" & Environ("TEMP")
  
    With objRecordset
        .Open "SELECT * FROM [Контакты]", objConnection
        
        For i =  0  To .Fields.Count -  1 
            Debug.Print .Fields(i).Name,
        Next
        Debug.Print
        
        Do Until .EOF
            For i =  0  To .Fields.Count -  1 
                Debug.Print .Fields(i).Value,
            Next
            .MoveNext
        Loop
        Debug.Print
        
       .Close
    End With

    objConnection.Close