Code:
For Each Data In et_act.Rows
'Suchen nach ob Termin bereits vorhanden
Set myAppointment = myFolderCal.Items.Find("[BillingInformation] =
'" & _
Data("VBELN") & "'")
'Termin nicht gefunden, neu erstellen
If myAppointment Is Nothing Then
Set myAppointment = m_olApp.CreateItem(olAppointmentItem)
Else 'Termin vorhanden
If Not myAppointment.IsRecurring Then 'ERROR OCCURES!!!
For i = 1 To myAppointment.Links.count
myAppointment.Links.Remove (1)
Next i
End If
End If
Next

regards
Meex