вба в аксессе

Sub tets()
 
Dim db As Database
Dim rs As DAO.Recordset
Dim n As Integer, c As Integer
Dim i As Integer, j As Integer
Dim max As Integer, min As Integer
Dim norm As Integer
 
n = 29
c = 2
 
Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("Запрос5")
 
rs.MoveFirst
 
Do While (Not rs.EOF)
 
If rs.Fields(13).Value <> Empty Then
 
For i = 13 To n
max = 0
min = 1000
    For j = 0 To c
    If rs.Fields(i + j).Value > max Then
        max = rs.Fields(i + j).Value
    End If
    If rs.Fields(i + j).Value < min Then
        min = rs.Fields(i + j).Value
    End If
    norm = 0
    Next j
If rs.Fields(i + 3).Value <> Null Then
    If rs.Fields(i + 3).Value > max Then
        max = rs.Fields(i + 3).Value
    End If
    If rs.Fields(i + 3).Value < min Then
        min = rs.Fields(i + 3).Value
    End If
End If
d = rs.Fields(1).Value
If rs.Fields(i + j).Value <> Empty Then
    norm = ((max - min) / max) * 100
End If
i = i + 3
If norm > 10 Then
        MsgBox rs.Fields(1).Value
        rs.MoveNext
        i = 12
End If
Next i
 
End If
 
rs.MoveNext
 
Loop
End Sub