I am currently loading textboxes on a form using

Code:
Text1 = rstRecordset.Fields(1)
        Text2 = rstRecordset.Fields(2)
        Text3 = rstRecordset.Fields(3)
        Text4 = rstRecordset.Fields(4)
        Text5 = rstRecordset.Fields(5)
        Text6 = rstRecordset.Fields(6)
        Text7 = rstRecordset.Fields(7)
        Text8 = rstRecordset.Fields(8)
        Text9 = rstRecordset.Fields(9)
        Text10 = rstRecordset.Fields(10)
        Text11 = rstRecordset.Fields(11)
        Text12 = rstRecordset.Fields(12)
        Text13 = rstRecordset.Fields(13)
        Text14 = rstRecordset.Fields(14)
        Text15 = rstRecordset.Fields(15)
        Text16 = rstRecordset.Fields(16)
        Text17 = rstRecordset.Fields(17)
        Text18 = rstRecordset.Fields(18)
        Text19 = rstRecordset.Fields(19)
        Text20 = rstRecordset.Fields(20)
Is it possible to simplify the code by somehow doing the same in a loop, something like ...

Code:
       Dim MyControl as Control
        For I = 1 to 20
              Set MyControl.Name = "Text" & Trim(str(I))
              Set MyControl.Text = rstRecordset.Fields(I)
       Next I
This doesn't work, but I was hoping to do something along these lines

Thanks