Problème avec un module

Bonjour,

j'ai créé un formulaire où dessus, dans deux zone de texte, s'affiche des contrôle à effectuer. ces contrôle change en fonction si c'est Réduit Normal ou renforcé ceux-ci représenter par 3 checkbox qui doiven se cocher en fonction d'une requéte le problème c que le module que g créé ne marche pas et elle reste incocher
voici mon code

Public Function Controle(Cocher84 As CheckBox, Cocher86 As CheckBox, Cocher88 As CheckBox)

Dim NI_NBR_LOTS_NON_CONF As Integer
Dim NI_NBR_LOTS_RECUS As Integer

DoCmd.OpenQuery "R_contrôle_qualité"

For NI_NBR_LOTS_RECUS = 0 To 5
If NI_NBR_LOTS_NON_CONF = 0 Then
Cocher84 = True
Cocher86 = False
Cocher88 = False
Else
If NI_NBR_LOTS_NON_CONF = 1 Then
Cocher84 = False
Cocher86 = True
Cocher88 = False
Else
If NI_NBR_LOTS_NON_CONF >= 2 Then
Cocher84 = False
Cocher86 = False
Cocher88 = True
End If
End If
End If
Next NI_NBR_LOTS_RECUS
End Function