Загрузка приложения. Public Adodc.Recordset

Как перенести открытие recordset’ов Элементов управления Adodc (информфция в каждом из них из многих таблиц и отображается datagrid’ами) из всех форм в первую форму для полной загрузки приложения в начале работы программы?
До выполнения этой задачи я написала так:
With AdoInvoice1
.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
'Data Source = C:SymposiumDbBBaza_be_XP.mdb; Mode=ReadWrite;'
.RecordSource = 'SELECT DISTINCTROW ' & _
'[тблСчета].ДатаСчФакт,[тблСчета].[СчФакт_№],тблСчета.Сумма, ' & _
'[тблСчета].СуммаОплаты, [тблСчета].ДатаПоследнейОплаты, ' & _
'[тблСчета].ОплаченоПолностью, [тблСчета].ПримечаниеСлужебное, ' & _
'[тблСчета].ПримечаниеДляПечати, [тблСчета].[КПСчета], ' & _
'[тблПартнёрыРеквизиты].[КППартнёр]' & _
'From [тблПартнёрыРеквизиты] INNER JOIN [тблСчета] ' & _
'ON [тблПартнёрыРеквизиты].[КППартнёр] = тблСчета.КППартнёр ' & _
'ORDER BY [тблСчета].ДатаСчФакт, [тблСчета].[СчФакт_№]; '
.Refresh
End With
…Set dgdInvoice.DataSource = AdoInvoice1

Данные нормально отображаются в Datagrid.

Но если выделить отдельно recordset (с тем, чтобы сделать его глобальным – Public в модуле в начале программы), то данные не отображаются в Datagrid’е:
Cnn.Open 'Provider=Microsoft.Jet.OLEDB.4.0; ' & _
'Data Source=C:SymposiumDbBBaza_be_XP.mdb;Mode =ReadWrite; ' & _
'Persist Security Info=False '

Set rstInvoice = New ADODB.Recordset
rstInvoice.Open 'SELECT DISTINCTROW ' & _
'[тблСчета].ДатаСчФакт,[тблСчета].[СчФакт_№],тблСчета.Сумма, ' & _
'[тблСчета].СуммаОплаты, [тблСчета].ДатаПоследнейОплаты, ' & _
'[тблСчета].ОплаченоПолностью, [тблСчета].ПримечаниеСлужебное, ' & _
'[тблСчета].ПримечаниеДляПечати, [тблСчета].[КПСчета], ' & _
'[тблПартнёрыРеквизиты].[КППартнёр]' & _
'From [тблПартнёрыРеквизиты] INNER JOIN [тблСчета] ' & _
'ON [тблПартнёрыРеквизиты].[КППартнёр] = тблСчета.КППартнёр ' & _
'ORDER BY [тблСчета].ДатаСчФакт, [тблСчета].[СчФакт_№]; ', Cnn, adOpenKeyset, adLockOptimistic, adCmdText

rstInvoice.MoveFirst
Set AdoInvoice1.Recordset = rstInvoice
Set dgdInvoice.DataSource = AdoInvoice1
Но так данные не отображаются в Datagrid’е. Как правильно?

Зарание благодарна,
Алина.

Sub Main
With form1.AdoInvoice1
.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
'Data Source = C:SymposiumDbBBaza_be_XP.mdb; Mode=ReadWrite;'
.RecordSource = 'SELECT DISTINCTROW ' & _
'[тблСчета].ДатаСчФакт,[тблСчета].[СчФакт_№],тблСчета.Сумма, ' & _
'[тблСчета].СуммаОплаты, [тблСчета].ДатаПоследнейОплаты, ' & _
'[тблСчета].ОплаченоПолностью, [тблСчета].ПримечаниеСлужебное, ' & _
'[тблСчета].ПримечаниеДляПечати, [тблСчета].[КПСчета], ' & _
'[тблПартнёрыРеквизиты].[КППартнёр]' & _
'From [тблПартнёрыРеквизиты] INNER JOIN [тблСчета] ' & _
'ON [тблПартнёрыРеквизиты].[КППартнёр] = тблСчета.КППартнёр ' & _
'ORDER BY [тблСчета].ДатаСчФакт, [тблСчета].[СчФакт_№]; '
.Refresh
End With
…Set dgdInvoice.DataSource = AdoInvoice1
End sub

Но лучше использовать DataEnvirment

0