Affiché a l'aide de checkbox

Bonjour j'ai un petit soucis, j’aimerai affiché grâce a un bouton a coché affiché que les affecté quand c'est coché et quand c'est pas coché c'est de tout affiché mais je ne sais pas affiché dans un formulaire mai je sais l'affiché dans un menu d'eroulant voici mon code

Private Sub affiché_Click()
Dim rsForm As String
 
    rsForm = "SELECT Affectation.Or_Affectation, Affectation.USER_ID, Affectation.PIN_Terminal, Affectation.PIN_SIM, " & _
                    "Affectation.Coque, Affectation.Vitre, Affectation.Support_Vehicule, Affectation.Num_EMEI, " & _
                    "Affectation.Num_SIM, Affectation.Date_Début, Affectation.Date_Fin, Affectation.Date_de_Formation, " & _
                    "Affectation.[Actif], Affectation.Statut_Affectation, Affectation.Commentaire, Affectation.Or_Affectation1," & _
                    "Affectation.Statut, Affectation.Site, Affectation.Date_Formation " & _
            "FROM Affectation"
 
    If Affectation_Active = True Then
        rsForm = rsForm & " WHERE ((Affectation.Statut_Affectation = True);"
    Else
        rsForm = rsForm & ";"
    End If
    Me.RecordSource = rsForm
End Sub

Me.RecordSource = rsForm me fais une erreur qui est : Erreur d'exécution '3142'

merci

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.