Private Sub Form_Load()
Dim RST As ADODB.Recordset
Dim i As Long, j As Long, lngFldCount As Long
Dim strFldName As String
Dim dtmDate As Date
On Error Resume Next

dtmDate = Me.Parent.txtEndDate
Set RST = New ADODB.Recordset
    With RST
        .Open "qxtb", CurrentProject.Connection, adOpenStatic, adLockReadOnly, adCmdStoredProc
        lngFldCount = .Fields.Count - 1
    End With
    For i = Me.Controls.Count - 2 To 0 Step -2
        With Me.Controls(i)
            If .ControlType = acTextBox Then
                If lngFldCount > -1 Then
                        If lngFldCount <= 1 Then
                            strFldName = RST(lngFldCount).Name
                        Else '&#242;&#224;&#234; &#239;&#240;&#232;&#245;&#238;&#228;&#232;&#242;&#241;&#255; &#228;&#229;&#235;&#224;&#242;&#252;, &#239;&#238;&#242;&#238;&#236;&#243;-&#247;&#242;&#238; &#239;&#238;&#235;&#255; &#232;&#228;&#243;&#242; &#226; &#242;&#229;&#234;&#241;&#242;&#238;&#226;&#238;&#233; &#241;&#238;&#240;&#242;&#232;&#240;&#238;&#226;&#234;&#229;
                            strFldName = Format(dtmDate, "dd.mm.yyyy")
                            dtmDate = dtmDate - 1
                        End If
                    .ControlSource = Replace(strFldName, ".", "_")
                    .Controls(0).Caption = strFldName
                    .ColumnWidth = 1134 '-2 - &#239;&#238; &#231;&#237;&#224;&#247;&#229;&#237;&#232;&#254;
'                    .ColumnWidth = 1134 '-2 - &#239;&#238; &#231;&#237;&#224;&#247;&#229;&#237;&#232;&#254;
                    .ColumnHidden = False
                    lngFldCount = lngFldCount - 1
                Else
                    .ControlSource = vbNullString
                    .Controls(0).Caption = " "
                    .ColumnWidth = 0
                    .ColumnHidden = True
                End If
            End If
        End With
    Next i
'&#231;&#224;&#236;&#238;&#240;&#238;&#231;&#232;&#236; &#228;&#226;&#229; &#239;&#229;&#240;&#226;&#251;&#245; &#234;&#238;&#235;&#238;&#237;&#234;&#232;
'Me.Section(0).Controls(2).SetFocus
'DoCmd.RunCommand acCmdFreezeColumn

Set Me.Recordset = RST
Set RST = Nothing
End Sub