Asignar resultado de recordset en varios textbox

Amigos tengo un recordset que me trae varios ID y nombres de una tabla (Alumnos) de acuerdo a su edad por ejemplo; luego quiero poner esos 6 nombres que me trajo el recordset en 6 textbox en mi form... Tengo lo siguiente. Pero solo me trae un nombre

Dim sql As String
Dim rsprod As DAO.Recordset
Dim txtbox As Variant
Dim i As Integer
Dim intI As Integer

txtbox = Array(txt1, txt2, txt3, txt4, txt5, txt6)

sql = "select * from alumnos where [edad] > 6"
Set rsprod = CurrentDb.OpenRecordset(sql)

If rsprod.EOF Then Exit Sub

intI = 1
With rsprod
Do Until .EOF
For i = LBound(txtbox) To UBound(txtbox)
txtbox(i).value = rsprod!nombre
Next
.MoveNext
intI = intI + 1
Loop
End With
rsprod.close
Set rsprod = Nothing