How to use FavoritenFactory in QC 12.01 ?

Hello,

I try to use the FavoritenFactory in QC 12.01 but it is not working.

See code :

Dim QCConnection As TDConnection
Set QCConnection = New TDConnection

Dim ff As FavoriteFactory
Dim filterlist As FactoryList
Dim fav As Favorite
Dim myfavorite As String
Dim i As Integer

Set ff = QCConnection.GetCommonFavoriteFactory()
Set filterlist = ff.NewList("")

' find the favorite from the list of favorites
For i = 1 To filterlist.Count
        Set fav = filterlist.Item(i)

        ..
Next i

This code example is from

http://h30499.www3.hp.com/t5/Quality-Center-Support-and-News/Extract-Defects-using-settings-stored-in-Favorites/m-p/6367479/highlight/true#M84246

I always get the error that OTA Client is not available.

Any idea what I am doing wrong ?

BR

Bülent