Сорри, я немножко отмодерировал текст программы - подвигал строчки вправо-влево, чтобы было понятно, что к чему относится. После этого понял, что там отсутствует закрывающий End If. Но икс с ним, надеюсь, что в самой программе он все-таки есть, иначе бы она не запустилась.

Теперь по делу. Обращаться к контролам по номерам - это последнее дело. Такая программа перестанет работать в самый непредсказуемый момент. Начиная с Me.Controls(0) = Me!ADRESS, который вдруг начнет ссылаться на другой контрол. Почему обязательно 0, ты что, не знаешь, как он у тебя называется???

Теперь отвечаю на вопрос. Вариант такой:

Dim v As Variant, ctl As Control
For Each v In Array("txtCity", "cmbZipCode", "txtStreet", "txtHouseNo")
Set ctl = Me(v)
...
Next

Таким образом можно перечислить контролы в том порядке, как это нужно в данном месте программы, а не как случайно сложилось в ходе создания формы.

Кстати, категорически рекомендуется добавить в конце:

r.Close
Set r = Nothing

2 VIG:

Да, я об этом думал, но мой вариант позволяет проделать какую-нибудь операцию в цикле, написав ее один раз, а не повторять столько раз, сколько контролов. Да и приспособить к другому экрану с другими контролами так тоже проще.

2 VIG:

А я ведь идиот. Там же громадный БАГ в программе, а я его не углядел. Открывается рекордсет, идет проход по записям, а с самим рекордсетом ничего не делается! Берутся значения из контролов формы, которые от рекордсета никак не зависят.

Отвечать-то взялся я. Автор бага не обязан его видеть по определению, потому что его задача здесь - спрашивать.