Private Sub Form_Load()
Dim rst As Recordset, i As Integer, AA() As Control, ctl As Control
Set rst = CurrentDb.OpenRecordset( "Temp_Table" )
i =  1 

For Each ctl In Me.Controls
If ctr.ControlType = acTextBox Then 
If ctr.Name <>  "Month"  Then Me.Controls(ctr.Name).ColumnHidden = - 1 
ReDim Preserve AA(i)
Set AA(i) = Me.Controls(ctr.Name)
i = i +  1 
End If
Next

For i =  1  To rst.Fields.Count -  1 
AA(i).ColumnHidden =  0 
AA(i).ControlSource = rst.Fields(i).Name
AA(i).Controls( 0 ).Caption = rst.Fields(i).Name
Next i
End Sub

strSQL =  " Select... Union Select ...Union Select ...;" 

CurrentDb.Exeсute  "INSERT INTO MyTable ([Месяц], [Филиал])"  & strSQL