Mon code ne fonctionne pas : Erreur de compilation-syntaxe

Bonjour,

J'essaie de faire un formulaire avec un bouton de rechercher et des champs de recherche libre, j'ai des informations dans une table et j'aimerai les faire ressortir.

Mais je suis débutant et mon code ne fonctionne pas.

Es ce que quelqu'un pourrai m'aider svp.


Merci


voici mon code :

Private Sub cmd_recherche_Click()

Dim A As String
Dim B As String
Dim C As String
Dim D As String

If Me.Prenom Is Null Then A = "%"

ElseIf: A = Me.Prenom

End If

If Me.Nom Is Null Then B = "%"
ElseIf: B = Me.Nom

End If

If Me.DDN Is Null Then C = "%"
ElseIf: C = Me.DDN

End If

If Me.Nas Is Null Then D = "%"
ElseIf: C = Me.Nas

DoCmd.RunSQL "SELECT * FROM BNL WHERE Prenom like '" & A & "' and Nom like '" & B & "' and DDN like '" & C & "' and NAS like '" & D & "'"

End If


End Sub

EDIT: Ajout de la coloration syntaxique.