Dim c As Control     '
   Dim i As Long        '
   Dim s_Prop As String       'Хранит имя свойства привязываемого к рекордсету
   Set bndРежим.DataSource = rsРежим
'Создание коллекции bndРежим
   bndРежим.Clear    'Сначала очистка
   i =  0 
   For Each c In Me.Controls           'Цикл по контролам
      If c.Tag = "R" Then              'Тэг "R" - означает, что его привязывать к rsРежим
         If c.DataField <> "" Then        'Привязывать только те, у которых задано DataField
            If (TypeOf c Is DTPicker) Then s_Prop = "Value" Else s_Prop = "Text"
            bndРежим.Add c, s_Prop, c.DataField, c.DataFormat, "R" & i
            i = i +  1          'Key элемента коллекции - из предваряющего символа "R" и числа i
         End If
      End If
   Next

Dim rsРежим As ADODB.Recordset
Dim bndРежим As BindingCollection

Private Sub Form_Initialize()
   Set rsРежим = New ADODB.Recordset
   Set bndРежим = New BindingCollection
End Sub