Оптимизация использования ADO Connection и Recordset - VB

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

ГОСПОДА ПРОГРАММИСТЫ, а давайте поделимся, как наиболее оптимально импользовать Connection'ы и Recorset'ы. Я это делаю так. Для каждой формы у меня свои локальные Connection'ы и Recodset'ы. Почему я не испольую глобальный Connection, да потому, что так немеренно проще работать с транзакциями. А на счет Recordset'ов делаю так: те, которые привязанны к элементам формы, объявляются, как общие для формы, а Recordset'ы, с которыми я что-нть мутю, т.е. добавляю, поиск, исправляю, я создаю и открываю только на время работы с ними. МОЖЕТ Я НЕ ПРАВ. ДАВАЙТЕ ОБСУДИМ !!!

Решение задачи: «Оптимизация использования ADO Connection и Recordset»

textual
                            Листинг программы 
                        

                            Private Function OpenRS(ByRef CN As ADODB.Connection, ByVal SQL As String) As ADODB.Recordset
Dim rs As ADODB.Recordset
 
        Set rs = New ADODB.Recordset
        rs.CacheSize = 100
        rs.CursorLocation = adUseClient
        rs.CursorType = adOpenStatic
        rs.LockType = adLockReadOnly
        rs.Source = SQL
        rs.ActiveConnection = CN
        rs.Open , , , , adCmdText
        
        Set OpenRS = rs
        
End Function
                        