Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
Dim i As Integer
    Do Until rstReport.EOF
        For i = 0 To intColumnCount - 1
            Me("ctl" + Format(i)) = rstReport(i)
        Next intX
       rstReport.MoveNext
    Loop
End Sub