Visual Basic - Para que es esto ??

Estaba investigando una aplicacion, pero no entiendo para que la pesona que hizo la aplicacion, coloco este codigo ??

For Each oText In Me.txtFields
Set oText.DataSource = adoPrimaryRS
Next
For Each oCheckBox In Me.chkFields
Set oCheckBox.DataSource = adoPrimaryRS
Next

gracias

Asigna a cada TextBox del formulario (en el primer For) y cada CheckBox (en el segundo) el recordset adoPrimaryRS.

Crea el enlace con los datos en tiempo de ejecución. Seguramente la propiedad DataField de cada objeto estará fijada en tiempo de diseño.