Hi,
with this code(VB6) I receive an error message:
   Dim objOutlook As Outlook.Application
   Dim objOutSpace As Outlook.NameSpace
   Dim objOutFolder As Outlook.MAPIFolder
   Dim objOutCont As Outlook.ContactItem
   Dim oItem As ListItem ' Listview-Control

   Set objOutlook = New Outlook.Application
   Set objOutSpace = objOutlook.GetNamespace("MAPI")
   Set objOutFolder = objOutSpace.GetDefaultFolder(olFolderContacts)

   If objOutFolder.Items.Count = 0 Then
       MsgBox "No contacts in your folder!", vbInformation, ""
       frmOutlookContacts.Picture1.SetFocus
       Exit Function
   Else
       frmOutlookContacts.lstKontakte.ListItems.Clear
           For Each objOutCont In objOutFolder.Items
               If objOutCont.Class = olContact Then
                   If Len(objOutCont.LastName) And
Len(objOutCont.FirstName) > 0 Then
                       Set oItem =
frmOutlookContacts.lstKontakte.ListItems.Add(, , " " &
objOutCont.LastName & " " & objOutCont.FirstName)
                   End If
                   oItem.SmallIcon = "Kontakt"
                   If Len(objOutCont.BusinessAddressStreet) > 0 Then
                       oItem.SubItems(1) =
objOutCont.BusinessAddressStreet
                   End If
                   If Len(objOutCont.BusinessAddressPostalCode) > 0
Then
                       oItem.SubItems(2) =
objOutCont.BusinessAddressPostalCode
                   End If
                   If Len(objOutCont.BusinessAddressCity) > 0 Then
                       oItem.SubItems(3) =
objOutCont.BusinessAddressCity
                   End If
               End If

       Set oItem = Nothing
       Set objOutCont = Nothing
       Set objOutFolder = Nothing
       Set objOutSpace = Nothing
       Set objOutlook = Nothing

Outlook.exe Error-Message:
Outlook has a problem firmly placed and must be terminated.

Windows event-viewer message:
Ereignistyp:    Fehler
Ereignisquelle:    Application Error
Ereigniskategorie:    Keine
Ereigniskennung:    1000
Datum:        01.11.2006
Zeit:        16:09:28
Benutzer:        Nicht zutreffend
Computer:    USER-BDEC581E83
Beschreibung:
Fehlgeschlagene Anwendung outlook.exe, Version 10.0.6626.0,
fehlgeschlagenes Modul mscorwks.dll, Version 1.1.4322.2032,
Fehleradresse 0x00071bd8.

Weitere Informationen über die Hilfe- und Supportdienste erhalten Sie
unter http://go.microsoft.com/fwlink/events.asp.
Daten:
0000: 41 70 70 6c 69 63 61 74   Applicat
0008: 69 6f 6e 20 46 61 69 6c   ion Fail
0010: 75 72 65 20 20 6f 75 74   ure  out
0018: 6c 6f 6f 6b 2e 65 78 65   look.exe
0020: 20 31 30 2e 30 2e 36 36    10.0.66
0028: 32 36 2e 30 20 69 6e 20   26.0 in
0030: 6d 73 63 6f 72 77 6b 73   mscorwks
0038: 2e 64 6c 6c 20 31 2e 31   .dll 1.1
0040: 2e 34 33 32 32 2e 32 30   .4322.20
0048: 33 32 20 61 74 20 6f 66   32 at of
0050: 66 73 65 74 20 30 30 30   fset 000
0058: 37 31 62 64 38 0d 0a      71bd8..

I use german windowsXP, officeXP and visual basic 6.

I have all updates.

Office repair did not help.

Any ideas?

Best regards Oliver.