SearchbyCategory

Hi,

I want to display a list wich depends on a specific value in a UDF.
I use VB6 to realise that. Here is the code:

Sub Main()
Dim objMaxApp As MaximizerTLB.Application
Dim objMaxAttach As New MaximizerTLB.AttachToCurrentInstance
Dim objMaxCur As MaximizerTLB.CurrentRecord

Set objMaxCur = objMaxAttach.GetCurrentRecordObject

Call objMaxCur.SearchByCategories("Name UDF", "Search Value", , 1, 2, 1, 0, 0)


Set objMaxApp = Nothing
Set objMaxCur = Nothing
Set objMaxAttach = Nothing

End Sub

The problems is that it works not everytime!
E.g. When i run the code it works, when i run the code a second time (or with different values), the adressbooklist is empty! and i know for sure that there are records present with the given values.

How is that possible? is there someting wrong with the code?

thanks in advance