Private Sub Form_Load()
        sFileName = App.Path & "\ConfigGrig.cfg"
               
        'Для DataGrid'а - 1
        With dgData1
            .LayoutFileName = sFileName                  'Установка имени файла для сохранения настроек
            .LayoutName = Me.Name & "Первый"       'Установка имени секции данных в файле настроек
            .LoadLayout                                        'Загрузка сохраненного состояния
        End With
        
        'Для DataGrid'а - 2
        With dgData2
            .LayoutFileName = sFileName                 'Установка имени файла для сохранения настроек
            .LayoutName = Me.Name & "Второй"       'Установка имени секции данных в файле настроек
            .LoadLayout                                       'Загрузка сохраненного состояния
        End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
        
        'Сохранение установок таблиц гридов
        dgData1.Layouts.Add Me.Name & "Первый"
        dgData2.Layouts.Add Me.Name & "Второй"
              
End Sub

'Сохранение установок таблиц гридов
'DataGrid1
dgData1.LayoutFileName = App.Path & "\" & SAVE_SETTING_FILE
dgData1.Layouts.Add Me.Name & "Первый"
dgData1.LayoutFileName = vbNullString
dgData1.LayoutName = vbNullString
'DataGrid2
dgData2.LayoutFileName = vbNullString
dgData2.LayoutName = vbNullString
dgData2.LayoutFileName = App.Path & "\" & SAVE_SETTING_FILE
dgData2.Layouts.Add Me.Name & "Второй"