ник: Lukas
Неа.
Вот здесь будет ошибка, так как нет такого контрола в коллекции.
Me.Controls(rst!ID).Value = 0
Надо наверное так:
For i=0( или 1, 2...) To rst.Fields.Count-1
Me.Contols(rst.Fields(i).Name).Value=rst.Fields(i)
А почему бы не назначить форме и контролам источники?
ps. Сейчас придет гестапо, включит паяльник и растолкует как надо.