şu şekilde çözüm önerisi sunabilirim, Formunuza kaç tane kayıt gelecekse o kadar textbox yerleştirin (siz kutu yerleştirmişsiniz)
daha sonra formun Current olayına aşağıdaki kodu yazın.

Private Sub Form_Current()

Dim rs As DAO.Recordset

Dim i As Integer

Dim ctlr As Control

   

     Set rs = CurrentDb.OpenRecordset("tbl_urun")

     For Each ctlr In Me.Controls

     If TypeOf ctlr Is TextBox Then

      For i = 0 To ctlr.Controls.Count

      On Error Resume Next

       ctlr.Value = rs!urunadi

       rs.MoveNext

      Next i

    End If

Next



End Sub

eğer yukarıdan aşağı sıralamak isterseniz MoveNext, MovePrevious komutlarıyla ayarlamalar yapın.