While getting user worklist faced performace problem - 2-3sec to get user's worklist (or almost any other request to get task info).

Code I use is like this 

1. 
   
2.  Connection = New Connection
   
3. Connection.Open(K2ServerName)
   
4. Connection.ImpersonateUser(UserLogin)
   
5. worklist = ImpersonatedConnection.OpenWorklist
   
6.     Dim res = New List(Of dtoK2Task)
   
7.         If  Worklist.Count > 0 Then
   
8.             Try
   
9.                 Dim wli As SourceCode.Workflow.Client.WorklistItem
   
10.                 For Each wli In UserWorklist
    
11.                     res.Add(New dtoK2Task(wli))
    
12.                 Next
    
13.         End If
    
14.         Return res
    

Longest operation (99% of all time) is opening WorkList of Connection.

Am i doing something wrong?

Any other ways to get task/worklist info?