[AccessD] error in code

Hello Group,

why isn't this part of a code not working

for i  = 1 To 9
If "chb" & i & "c31") = True Then
    .Item("Code" & i).Value = "**     geen code"
End If
Next i

the error is:  Error 13, Description:  Type Mismatch


TIA

Pedro Janssen