Set Form1 = Nothing

' Im Codemodul des OCX
Private Sub UserControl_Terminate()
  On Error Resume Next
 
  Set colData = Nothing
End Sub
 
' Im Codemodul der Form
Private Sub Form_Unload(Cancel As Integer)
  Set Form1 = Nothing ' Programm stürzte hier immer ab
End Sub

' Im Codemodul des OCX
Public Sub UnloadCollection()
  On Error Resume Next
 
  If Not colData Is Nothing Then Set colData = Nothing
End Sub
 
Private Sub UserControl_Terminate()
  UnloadCollection
End Sub
 
' Im Codemodul der Form
Private Sub Form_Unload(Cancel As Integer)
  On Error Resume Next
 
  UserControl1.UnloadCollection
  Set Form1 = Nothing 'das Programm stürzt hier nicht mehr ab
End Sub

Viel Spass,
R@lf