Use an object array and a code similar to this:

Code:
-------------------------------------------------------
¡® Create a control, say a textbox, in advance and set the index as 0
¡® rs is your recordset
¡® 300 is the vertical space as you wish between textboxes

Dim intNumOfRecord As Integer
Dim i As Integer
intNumOfRecord = rs.RecordCount

For i = 1 To (intNumOfRecord ¨C 1)
Load Text1(i)
With Text1(i)
.Top = Text1(i - 1).Top + 300
.Visible = True
End With
Next

For i = 0 To (intNumOfRecord ¨C 1)
Text1(i).Text = rs.Fields(0)
rs.MoveNext
Next
------------------------------------------------------

Hope it helps.