Помогите разобраться с True DataControl - VB

Формулировка задачи:

Раньше юзал обычный ADODC, но количество конекшенов к базе стало критичным, по-этому нарыл сабж, но не могу понял логику работы с ним Вот чего хочу:

                    Листинг программы
                
Set adoTData.SourceConnection = conn ' приделываю однажды открытый конект 
adoTData.RecordSource = "SELECT * FROM qData" ' кидаем запрос к базе 
adoMBK.Refresh ' делаем рефреш

В первый раз отрабатывает нормально. Потом замена строки в adoTData.RecordSource и Refresh дают пустой набор записей. При этом заметил, что если при каждом Refresh делать

                    Листинг программы
                
Set adoTData.SourceConnection = conn

то все отрабатывает как надо. Не пойму в чем собственно проблема, он что теряет конекшн? Или с ним надо по иному работать?

Решение задачи: «Помогите разобраться с True DataControl»

textual
                            Листинг программы 
                        
 
                        
                          
                    
With adoEvents
   .ConnectionString = ''
   Set .SourceConnection = mainCnn
   .CommandType = adCmdText
   .RecordSource = strSQL
   .Refresh
End With