Private Sub ZeroINN_Click()

Dim i As Integer
Dim strSelect As String
Dim rst As New ADODB.Recordset

' это есть счетчик, который мы инкрементируем и присваиваем полю INN
i =  0 

'строка - запрос на выборку именно тех записей, у которых поле INN равно 0
strSelect = "SELECT DISTINCT name, INN, KPP " & _
            "FROM REESTR " & _
            "WHERE ((Name Is Not Null) And (INN = 0)) " & _
            "ORDER BY NAME"

' теперь собственно сам рекордсет для выборки этих записей и изменения
With rst
    .Open strSelect, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

' встали на первое значение
    .MoveFirst

' и шагом пока не упремся в конец
    Do While Not .EOF

' изменяем счетчик на 1 (разве inc(i) здесь не работает?)
        i = i +  1 

' присвоили значение - либо str(i)? не знаю, что именно
        ![INN] = i

' сохранили изменение
        .Update

' перешли на следующую строку выборки
        .MoveNext
    Loop
   
End With
rst.Close
Set rst = Nothing
MsgBox "Изменение есть"
End Sub

Private Sub ZeroINN_Click()

Dim i As Integer
Dim strSelect As String
Dim rst As New DAO.Recordset