If null.. non mi funziona

Do Until Tabella.EOF
    If app = Tabella.Fields("ccp") Then
        If Tabella.Fields("progr") Is Null Then
            i = i + 1
            Tabella.Edit
            Tabella.Fields("progr") = Format(i, "000000")
            Tabella.Update
        Else: Tabella.MoveNext
        End If
   Else: app = Tabella.Fields("ccp")
   End If
Loop

if IsNull(If Tabella.Fields("progr")) Then..