basit bir örnek eklerseniz onun üzerinde gösterebilirim ama temel mantığını söyleyeyim
veri gelecek tüm metin/açılır kutuların adını sorgu/tablodaki alan sırasına göre isimlendirin
mesele tablo yada sorgudaki ilk alanın geleceği metin kutusunun adı txt0, 2. alanın geleceği kutunun adı txt1 gibi olur
tabi ki alan sayısının değişmediği varsayılmıştır
eğer alan sayısı metin kutusu sayısından fazla ise hata verir engellemek için On Error Resume Next kodu aktifleştirilmelidir
form yükleme olayına da aşağıdaki kod yazılabilir ama şiddetle bu yapıyı değiştirmeniz öneririm

For x = 0 To Me.Recordset.Fields.Count - 1

'On Error Resume Next

    Me.Controls("txt" & CStr(x)).ControlSource = Me.Recordset(x).Name

Next x